Will shake a form around the screen.
Will shake a form around the screen.
Rate Will shake a form around the screen.
(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
Will shake a form around the screen. Comments
No comments yet — be the first to post one!
Post a Comment