vb.net2015_slip13

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RadioButton1.Checked = True And RadioButton3.Checked = True Or RadioButton2.Checked = True And RadioButton3.Checked = True Then
            CheckBox2.Checked = True
            MsgBox(TextBox1.Text & " Sorry You Dont Drive Car")

        ElseIf RadioButton1.Checked = True And RadioButton4.Checked = True Or RadioButton2.Checked = True And RadioButton4.Checked = True Then
            CheckBox1.Checked = True
            MsgBox(TextBox1.Text & " You can Drive Car")
        Else
            CheckBox3.Checked = True
            MsgBox(TextBox1.Text & " It's All Right")
        End If

    End Sub
End Class