push to show a msg

[whiskydrinka]

hi again
Ive been playing around with the code and been trying to
have a the vb key assigned in text box ,like i would like to change what button I want to press or even a combo box an have the key code constance in the combo box
something like that


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKey & text1.text Then
Frame1.Visible = True
End If
End Sub

OR

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
vbkey = Form2.Text1.Text

If KeyCode = Form2.Text1.Text Then
Frame1.Visible = True
End If
End Sub

instead of vbkeyA the "A" would be in the textbox an i could change it to what ever i like
any help would be great