用vb程序设计动画

代码：

Public TopBottom, LeftRight As String

Private Sub Form_Click()

    If Timer1.Enabled = False Then
       Timer1.Enabled = True
    Else
       Timer1.Enabled = False
    End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

    Select Case KeyAscii

       Case 61
          Timer1.Interval = 10
       Case 45
          Timer1.Interval = 100
    End Select
End Sub

Private Sub Form_Load()
    TopBottom = "0"
    LeftRight = "0"
End Sub


Private Sub Image1_Click()
End Sub

Private Sub Timer1_Timer()

    Select Case TopBottom & LeftRight
        Case "00"
            Form1.Image1.Top = Form1.Image1.Top - 10
            Form1.Image1.Left = Form1.Image1.Le