Will shake a form around the screen.

by Mohamad Khalili (1 Submission)
Category: Miscellaneous
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Sat 11^th November 2000
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Rate Will shake a form around the screen.



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

Download this snippet Add to My Saved Code

Will shake a form around the screen. Comments

No comments have been posted about Will shake a form around the screen.. Why not be the first to post a comment about Will shake a form around the screen..

Will shake a form around the screen.

Will shake a form around the screen. Comments

Post your comment

Difficulty