[محمود اكرم]

السلام عليكم
عجبني سؤلك ولهذا بدي اجاوبك عليه واظن انه في طريقة اسهل كمان بس هذي طريقتي
هذا الكود انسخه وضعه في شاشة الكود

إقتباس :Dim b, s As Boolean

Sub SelectCurser()
b = False ' b text1.text
s = False ' s text2.text
End Sub


Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
SelectCurser()
b = True
End Sub
Private Sub TextBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Click
SelectCurser()
s = True
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If b = True Then
TextBox1.Text = "1"
ElseIf s = True Then
TextBox2.Text = "1"
End If
End Sub

علما بان Dim b, s As Boolean
توضع داخل القسم العام اي بعد
Public Class Form1
والباقي تضعه بعد القسم العام وقبل End Class