تنشيط الحقل Text

السلام عليكم ورحمة الله وبركاته

اليك الحل فى هذا الكود البسيط اخى...

Dim Bool As Boolean
Private Sub Command1_Click()
If Bool = False Then Text1.Text = Text1.Text & "1" Else Text2.Text = Text2.Text & "2"
End Sub

Private Sub Text1_GotFocus()
Bool = False
End Sub

Private Sub Text2_GotFocus()
Bool = True
End Sub

ارجوا ان يكون هذا هو المطلوب...

شريف...

;) ;) :rolleyes:

مشكووووووور أخي شريف عادل وجزاك الله كل خير وكثر من أمثالك

تم المطلوب والفضل يعود الى الله ثم لك

شكرا

لا شكر على واجب اخى...

هذا عملى...

شريف...

;) ;) :rolleyes: