[سعود]

PHP كود :

Public Class Form1
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim t As TextBox = DirectCast(sender, TextBox)
        If t.Text = "12345" Then
            Button1.Focus()
            SendKeys.Send("{Enter}")
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox(TextBox1.Text)
    End Sub
End Class 


زر الامر سيتم تنفيذ حدث النقر له من خلال ارسال الامر sendkeys

---

لم انتبه للقسم و اظن الفرق بسيط لمثل هذه الفكرة

---

هذا في اكس بي:

PHP كود :

Private Sub Command1_Click()
MsgBox (Text1.Text)
End Sub
Private Sub Text1_Change()
If Text1.Text = "12345" Then
Command1.SetFocus
SendKeys "{Enter}"
End If
End Sub