Question

怎么设计使VB中标签向左，向右手动移动的程序呢

Answer 1

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