Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
With Command1Select Case KeyCode
Case vbKeyLeft: .Left = .Left - 10
Case vbKeyRight: .Left = .Left + 10
End SelectEnd With
End Sub
With Command1Select Case KeyCode
Case vbKeyLeft: .Left = .Left - 10
Case vbKeyRight: .Left = .Left + 10
End SelectEnd With
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货