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

نظرات شما عزیزان:

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: