This project allows you to create a new graphical user interface and apply what you learned in this unit to your application project. Be sure to include the following in your interface:

1. Radio buttons that limit the user to only one choice (nested selection structure)
2. A group box for your radio buttons
3. Controls to prevent unwanted characters in text boxes
4. At least one message box
5. At least one select case statement

** I have everything figured out but running into issue with section three of the question I can not get the Controls to prevent Letters to work correctly. Could someone help me with what I am doing wrong. I just need the ZipCode to only allow numbers.

Woah WOHNUNG WN Imports Microsoft.VisualBasic 1 reference Public class Form1 O references Private Sub BtnClear Click(sender As Object, e As EventArgs) Handles btnClear.click ... O references Private Sub Btnclose_Click( sender As Object, e As EventArgs) Handles btnclose.Click ... O references Private Sub BtnEnter_Click(sender As Object, e As EventArgs) Handles btnEnter.click 'Declare String Variables Dim Name As String Dim City As String Dim Address As String Dim Email As String Dim State As String Dim ZipCode As Integer Dim Country As String "Get name Name = txtName.Text "Get City City = txtCity.Text "Get Address Address = txtAddress. Text "Get Email Email = txtEmail.Text "Get State State = txtState. Text "Get Zip Code ZipCode = txtZipCode. Text "Get Country Country = cmCountry. Text *Check if Male Radio Button is Checked If rdmale.Checked Then 1bloutput.Text = ("Hello, " & Name &" Email: " & Email & " From: " & Address & "," & City & "," & State & ZipCode & Country & " Thanks for Stopping By Sir!") Else *Check if Female Radio Button is Checked bloutput.Text = "Hello. - & Name & Email: " & Email & From: " & Address & "," & City & "," & State & ZipCode & Country &" Thanks for Stopping By Ma'am!") : End If End Sub O references Private Sub TxtZipCode_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles txtZipCode If Asc(e. KeyChar) > 96 Or Asc(e.KeyChar)