Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyBack
Label1.Caption = Left(Label1.Caption, Len(Label1.Caption) - 1)
'自己再加入需要的键值判断
Case Else
Label1.Caption = Label1.Caption & Chr(KeyCode)
End Select
End Sub