راهنمایی برای میانبر کلید؟!!

[Heidari66]

سلام دوستان

ببینید:



Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Label1 = Text1.Text
End If
End Sub

وقتی داخل Text1.Text عددی وارد کنیم و دکمه اینتر(13) رو بزنیم ، عدد وارد شده در Label1 نمایش داده خواهد شد!!!
حالا چکار کنم وقتی عددی وارد Text1.Text کردم و اینتر رو زدم ، بجای نمایش عدد در Label1 ، مثلا دکمه ای زده بشه؟!

ممنون

[xxxxx_xxxxx]

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub