Syntax help

hoy145 · #1 (**permalink**) 06-25-09, 08:38

hey, i am new to VB6, i started using it approximatley 2 weeks ago, and i have only just encounered my first error, i need help, when i compile and run, i get the error message "block IF without END IF", could someone please correct me, i have attatched my code in a .txt

Sequin · #2 (**permalink**) 06-25-09, 09:35

Code:

Private Sub cmdroll_Click()
    Label1.Caption = Int(Rnd * 10)
    Label2.Caption = Int(Rnd * 10)
    Label3.Caption = Int(Rnd * 10)

    If Label1.Caption = 7 And Label2.Caption = 7 And Label3.Caption = 7 Then

        win.Caption = win.Caption + 2
        MsgBox "SUPER WIN!!", vbExclamation, "SUPERB!"


    Else

        If Label1.Caption = 7 Or Label2.Caption = 7 Or Label3.Caption = 7 Then

            win.Caption = win.Caption + 1
            MsgBox "You Win!!", vbExclamation, "WINNER"

        Else

            Beep
            lose.Caption = lose.Caption + 1

        End If
    End If

End Sub

hoy145 · #3 (**permalink**) 06-25-09, 09:44

Ahhh thank you so much

bet its all so simple to you

thanks again,
Hoy145

Internet Services

Web Development

Digital Marketing

Consumer Tech