29-03-13, 12:57 PM
كود :
Protected Overrides Function ProcessCmdKey(ByRef key As Message, ByVal keyvb4arb As Keys) As Boolean
Dim s As Keys
s = TextBox1.Text
If keyvb4arb = (s) Then
MsgBox("123456")
End If
If s = 0 Then Return False
Return True
End Function