代码:
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