0 HOW TO CREATE FACEBOOK ACCOUNT PROJECT IN VB.NET

CODING

Public Class Form1

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If Me.TextBox1.Text = "" Then
            Label3.Text = "fill the box"
            Me.TextBox1.Focus()
        Else
            Label3.Text = ""
        End If



    End Sub

    Private Sub TextBox4_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox4.LostFocus
        If TextBox4.Text = "" Then
            Label9.Text = "fill the box"
            Me.TextBox4.Focus()
        Else
            Label9.Text = ""

        End If
    End Sub

    Private Sub TextBox3_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.LostFocus
        If Me.TextBox3.Text = "" Then
            Label10.Text = "fill the box"
            Me.TextBox3.Focus()
        Else
            Label10.Text = ""

        End If
    End Sub

    Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus
        If Me.TextBox2.Text = "" Then
            Label11.Text = "fill the box"
            Me.TextBox2.Focus()
        Else
            Label11.Text = ""

        End If
    End Sub

 
 
   
 
    Dim a As String = ""
    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        If IsNumeric(TextBox5.Text) = True Then
            a = Int(TextBox5.Text)
        Else
            TextBox5.Text = a

        End If

    End Sub

   
End Class