Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
            If String.IsNullOrEmpty(textBox2.Text) = True Then
                'TODO: check user/pass for null.
                MessageBox.Show("Please enter a valid username then try again", "Invalid username", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Return
            ElseIf IsValidEmailAddress(textBox1.Text) = False Then
                MessageBox.Show("Invalid Email Detected", "Invalid Email", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

                Return
            ElseIf Not String.IsNullOrEmpty(textBox2.Text) = True AndAlso Not IsValidEmailAddress(textBox1.Text) = False Then
                Me.Text = "Connecting... Please wait."
                m_ChildForm.Host = reader.GetIP()
                m_ChildForm.Nickname = textBox2.Text
                m_ChildForm.Username = textBox1.Text
                m_ChildForm.Password = textBox3.Text
                m_ChildForm.StartConnection(False)
                Me.Text = "Login - " & reader.GetBuisnessName()
            End If
        End Sub