Listing atau coding cara membuat animasi gerak di VB atau visual basic :)

Maaf ya gan, saya hanya mengasih lisitngnya saja ya, pengertinya tolong agan pikir sendiri ya ?? hehhehe :D

Private Sub Timer1_Timer()

         

    If Image1.Visible = True Then

    Image1.Visible = False

    Image2.Visible = True

    ElseIf Image2.Visible = True Then

    Image2.Visible = False

    Image3.Visible = True

    ElseIf Image3.Visible = True Then

    Image3.Visible = False

    Image4.Visible = True

    ElseIf Image4.Visible = True Then

    Image4.Visible = False

    Image5.Visible = True

    ElseIf Image5.Visible = True Then

    Image5.Visible = False

    Image6.Visible = True

    ElseIf Image6.Visible = True Then

    Image6.Visible = False

    Image7.Visible = True

    ElseIf Image7.Visible = True Then

    Image7.Visible = False

    Image8.Visible = True

    ElseIf Image8.Visible = True Then

    Image8.Visible = False

    Image9.Visible = True

    ElseIf Image9.Visible = True Then

    Image9.Visible = False

    Image10.Visible = True

    ElseIf Image10.Visible = True Then

    Image10.Visible = False

    Image11.Visible = True

    ElseIf Image11.Visible = True Then

    Image11.Visible = False

    Image12.Visible = True

    ElseIf Image12.Visible = True Then

    Image12.Visible = False

    Image13.Visible = True

    ElseIf Image13.Visible = True Then

    Image13.Visible = False

    Image1.Visible = True

   

End If

   

End Sub

 thanks and good try :)
Jangan lupa komentnya ya gan .. :(