[مبتدئ]

كود :

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

اريد كتابة الزر فى Textbox