نقل قول: يعني تابعي براي اين كار نيست
Private Sub Text1_Change() If IsNumeric(Text1.Text) = True Then Text2.Text = "Adad" Else Text2.Text = "Gheire Adad" End If End Sub
