سوال در مورد key down

[vb.amir]

با سلام خدمت دوستان عزیز:بوس:

من در خواصیت key down فرم می خوام که وقتی مثلا نوشتی ali یه msgbox بده

یعنی وقتی به ترتیب تایپ کردی ali یه پیغام بده:متفکر:

[sinpin]

با سلام خدمت دوستان عزیز:بوس:

من در خواصیت key down فرم می خوام که وقتی مثلا نوشتی ali یه msgbox بده

یعنی وقتی به ترتیب تایپ کردی ali یه پیغام بده:متفکر:



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Me.Tag = Me.Tag + LCase(Chr(KeyCode))
If InStr(Me.Tag, "ali") <> 0 Then
MsgBox "ok"
Me.Tag = ""
End If
End Sub

[vb.amir]

دوست عزیز از لطف شما ممنون