• Home
 · 
• Graphics
 · 
• Butter Fly Program

Butter Fly Program

Butter Fly Program

Rate Butter Fly Program

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Me.WindowState = 2
flag = True
Timer1.Interval = 100
Me.BackColor = vbWhite
Image1.Left = 0
Image1.Top = 6000

End Sub

Private Sub Timer1_Timer()
If flag = True Then
    Image1.Picture = LoadPicture("c:\bfly1.bmp")
Else
    Image1.Picture = LoadPicture("c:\bfly2.bmp")
End If
flag = Not flag
Image1.Left = Image1.Left + 75
Image1.Top = Image1.Top - 50
If Image1.Top <= 0 Then
    Image1.Left = 0
    Image1.Top = 6000
End If
End Sub