سورس كد تغيير مكان فرم در هر لحظه

 Interval تايمر رو 200 بزاريد

Private Sub Timer1_Timer() Dim Height As String Dim Width As String Dim Top As String Dim Left As String Randomize Height = Int(Rnd * 10000) Width = Int(Rnd * 10000) Top = Int(Rnd * Screen.Height) Left = Int(Rnd * Screen.Width)

Form1.Height = Height Form1.Width = Width Form1.Top = Top Form1.Left = Left End Sub