代码：

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