Butter Fly Program

by Bharanidharan (1 Submission)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 10^th January 2003
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Butter Fly Program

Rate Butter Fly Program



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

Download this snippet Add to My Saved Code

Butter Fly Program Comments

No comments have been posted about Butter Fly Program. Why not be the first to post a comment about Butter Fly Program.

Butter Fly Program

Butter Fly Program Comments

Post your comment

Difficulty