Question

vb6.0.用按键移动控件的时候会卡一下，怎么解决？

比如：
新建一个label，然后在Form_KeyDown里写
Label1.Left = Label1.Left + 50

运行的时候按着一个键，label是移动后停一下才继续移动的，怎么解决？

Answer 1

Private m_bIsMove As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If m_bIsMove Then Exit Sub
m_bIsMove = True
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
m_bIsMove = False
End Sub
Private Sub Timer1_Timer()
If m_bIsMove Then Label1.Left = Label1.Left + 50 * x
End Sub