bikin animasi terbang zig zag

taruh kode ini di general decalartion paling atas

Dim ZigZagY As Integer 

Dim ZigZagX As Integer 

Sub keliling()

Me.Move Me.Left + ZigZagX, Me.Top + ZigZagY

            If Me.Left < 0 Then

                ZigZagX = 20

            ElseIf Me.Left + Me.Width > Screen.Width + 0 Then

                ZigZagX = -20

            ElseIf Me.Top <= 0 Then

                ZigZagY = 20

            ElseIf Me.Top + Me.Height > Screen.Height + 0 Then

                ZigZagY = -20

            End If

End Sub

Private Sub Form_Load()

ZigZagY = 20

ZigZagX = 20

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

keliling

End Sub