Midterm 2014 - Question 3

' To see the GUI in action please go to these links
' http://i.imgur.com/SDh9diz.png
' http://i.imgur.com/P57go6x.png
' http://i.imgur.com/05QCp6k.png

Private Sub Command1_Click()
    'Clear the form
    Cls

    Dim dev_type As String
    Dim os_type As String

    'clear the variables :)
    dev_type = ""
    os_type = ""

    If Option1 = True Then dev_type = Option1.Caption
    If Option2 = True Then dev_type = Option2.Caption
    If Option3 = True Then dev_type = Option3.Caption
    If Option4 = True Then dev_type = Option4.Caption

    If Option5 = True Then os_type = Option5.Caption
    If Option6 = True Then os_type = Option6.Caption
    If Option7 = True Then os_type = Option7.Caption
    If Option8 = True Then os_type = Option8.Caption

    If dev_type = "" And os_type = "" Then
        MsgBox ("Device or OS is not Selected")
    Else
        Print "Your Device: " + dev_type + " ,And The OS: " + os_type
    End If

End Sub