הנה קוד
Dim X as Intager Dim Y as Intager Private Sub Form_Load() X=Picture1.Left Y=Picture1.Top End Sub Private Sub Timer1_Timer() If Picture1.Top>300 Then Picture1.Top=Y End If If Picture1.Left>300 Then Picture1.Left=X End If Picture1.Top=Picture1.Top+10 Picture1.Left=Picture1.Left+10 End Sub
כתבתי את הכל בע"פ כי אין לי במחשב הזה VB ולכן אם יש טעויות קטנות תתקן אותם אבל בעיקרון זה הפרוצדורה
