Hvem vil være millionær ?

HEj

Jeg vil igang med at lave sådan et program...

Er der nogen som helst der kan fortælle mig hvordan det kan gøres ?

Da jeg synes det vil være \"MEGET\" besværligt på denne måde...(*og det er bare for den først spm :()

Dim Nummer As String
Dim Spg As String
Dim Min As Long
Dim Max As Long
Dim Svar As String
Dim Valg As String
Private Sub A1_Click()
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 1. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
If A1.Caption = \" A. ASP\" Then
Valg = MsgBox(\"Er du sikker\", vbYesNo)
    If Valg = vbNo Then
    End
    ElseIf Valg = vbYes Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        Form_Load
        ElseIf Valg = vbNo Then
        End
        End If
    End If

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 2. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
ElseIf A1.Caption = \" A. Hyper Text Markup Language\" Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    End
    Form_Load
    End If
End

End Sub

Private Sub B1_Click()
\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 1. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
If B1.Caption = \" B. ActiveSP\" Then
Valg = MsgBox(\"Er du sikker\", vbYesNo)
    If Valg = vbNo Then
    End
    ElseIf Valg = vbYes Then
    MsgBox \"Rigtigt !\"
    Valg = MsgBox(\"Vil du prøve igen\", vbYesNo)
        If Valg = vbYes Then
        Form_Load
        ElseIf Valg = vbNo Then
        End
        End If
    End If

\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\' 2. Spørgsmål \'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'
ElseIf A1.Caption = \" A. Hyper Text Markup Language\" Then
    MsgBox \"Forkert, ASP står ik for ASP !\"
    End
    Form_Load
    End If
End
End Sub

Private Sub Form_Load()
Max = 3
Min = 1
Randomize
Nummer = Int(Rnd * (Max - Min)) + Min

If Nummer = \"1\" Then

    Spg = \" Hvad står \"\"ASP\"\" for ?\"
    A1.Caption = \" A. ASP\"
    B1.Caption = \" B. ActiveSP\"
    C1.Caption = \" C. Active Server Pages\"
    D1.Caption = \" D. Asp\"
    En.BackColor = RGB(255, 0, 0)
    Spm.Caption = Spg
   
      ElseIf Nummer = \"2\" Then
     
      Spg = \"Hvad står \"\"HTML\"\" for ?\"
      A1.Caption = \" A. Hyper Text Markup Language\"
      B1.Caption = \" B. HyperTM\"
      C1.Caption = \" C. Hjemmeside til formål\"
      D1.Caption = \" D. Html\"
      En.BackColor = RGB(255, 0, 0)
      Spm.Caption = Spg
     
      ElseIf Nummer = \"3\" Then
     
        A1.Caption = \" A. ASP\"
        B1.Caption = \" B. ActiveSP\"
        C1.Caption = \" C. Active Server Pages\"
        D1.Caption = \" D. Asp\"
        En.BackColor = RGB(255, 0, 0)
        Spg = \"Hvad står \"\"VB\"\" for ?\"
        Spm.Caption = Spg
       
        End If
End Sub