Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Image1.Left < Form1.Left - Image1.Left Then

Image1.Left = Image1.Left + 10

Image1.Width = Image1.Width + 100

Image1.Height = Image1.Height + 100

Else

Image1.Left = 0

Image1.Width = 0

Image1.Height = 0

Image1.Left = Image1.Left + 10

Image1.Width = Image1.Width + 100

Image1.Height = Image1.Height + 100

End If

End Sub

نوشته شده در تاریخ سه شنبه 17 آذر 1388    | توسط: محمد و مجید َ    |    |
نظرات()