Membuat Animasi Form Keliling Layar Dengan Vb 6.0

1. Buatlah form seperti dibawah ini

2. Masukkan listing dibawah ini

     Dim ZigZagY As Integer

     Dim ZigZagX As Integer

     Private Sub Command1_Click()

     End

     End Sub

     Private Sub Form_Load()

     ZigZagY = 20

     ZigZagX = 20

     Timer1.Enabled = True

     End Sub

     Private Sub Timer1_Timer()

     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