• Home
 · 
• Miscellaneous
 · 
• Will shake a form around the screen.

Will shake a form around the screen.

Will shake a form around the screen.

Rate Will shake a form around the screen.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Counter = 0
Do
Counter = Counter + 1
    Randomize Timer
    x = Int(Rnd * 454.45)
    y = Int(Rnd * 4646.45)

        Form1.Move x, y
Loop Until Counter = 100
    
End Sub




'THIS IS TO TEST FOR BACKGROUND COLOR
Private Sub Form_Load()
f = 0
Form1.BackColor = vbRed
Do
f = f + 1
Randomize Timer
    colorchange = Int(Rnd * 12)
Select Case colorchange
    Case 1
        Form1.BackColor = vbGreen
    Case 2
        Form1.BackColor = vbBlue
    Case 3
        Form1.BackColor = vbYellow
    Case 4
        Form1.BackColor = vbBlack
    Case 5
        Form1.BackColor = vbRed
    Case 6
        Form1.BackColor = vbBlue
    Case 7
        Form1.BackColor = vbYellow
    Case 8
        Form1.BackColor = vbGreen
    Case 9
        Form1.BackColor = vbWhite
    Case 10
        Form1.BackColor = vbBlue
    End Select
Loop Until f = 1
End Sub