22-08-13, 10:18 PM
جرب هذا المثال
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not TextBox1.Visible Then
TextBox1.Visible = True
Else
If TextBox1.Text = 50 Then
MsgBox("الرقم صحيح")
Else
MsgBox("الرقم خطأ")
End If
End If
End Sub