Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft And Label1.Left > 0 Then
Label1.Left = Label1.Left - 120 '按←键使标签向左移动
ElseIf KeyCode = vbKeyRight And Label1.Left < Me.ScaleWidth - Label1.Width Then
Label1.Left = Label1.Left + 120 '按→键使标签向右移动
End If
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024