' ' Project name:         Phone Project
' Project purpose:      Removes any hyphens, spaces, and
'                       parentheses from a phone number

Option Explicit On
Option Strict On
Option Infer Off

Public Class MainForm

    Private Sub exitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles exitButton.Click
        Me.Close()
    End Sub

    Private Sub numberTextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.Enter
        PhoneNumberTextBox.SelectAll()
    End Sub

    Private Sub numberTextBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles PhoneNumberTextBox.TextChanged
        numberLabel.Text = String.Empty
    End Sub

    Private Sub displayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles displayButton.Click

        Dim PhoneNumber As String

        PhoneNumber = numberLabel.Text
        PhoneNumber = PhoneNumber.Replace("-", "")
        PhoneNumber = PhoneNumber.Replace(" ", "")
        PhoneNumber = PhoneNumber.Replace("(", "")
        PhoneNumber = PhoneNumber.Replace(")", "")




        numberLabel.Text = PhoneNumberTextBox.Text



    End Sub
End Class


    End Sub
End Class