|
Public Class Form1 Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus TextBox1.Text = "" Label2.Text = "" End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged If TextBox1.Text = "" Then Button1.Enabled = False Else Button1.Enabled = True End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text >= 18 Then Label2.Text = "YOU CAN VOTE" Else Label2.Text = "SORRY YOU ARE CHILD" End If End Sub End Class |