Fout melding

[pc-freak1]

Hallo,

ik ben bezig met een soort spelletje.
Maar als ik deze wil starten geeft ie de onderstaande fout:

Compile erro:
Block if without End if



Deze fout geeft ie bij de onderstaande code, wat doe ik fout??

Private Sub cmdSpin_Click()
    imgResult.Visible = False
    lblnumber1.Caption = Int(Rnd * 10)
    lblNumber2.Caption = Int(Rnd * 10)
    lblnumber3.Caption = Int(Rnd * 10)
    If (lblnumber1.Caption = 7) Or (lblNumber2.Caption = 7) Or (lblnumber3.Caption = 7) Then
            euro5.Visible = True
            Beep
    If (lblnumber1.Caption = 7) And (lblNumber2.Caption = 7) Then
            euro10.Visible = True
            Beep
    If (lblnumber1.Caption = 7) And (lblnumber3.Caption = 7) Then
            euro10.Visible = True
            Beep
    If (lblNumber2.Caption = 7) And (lblnumber3.Caption = 7) Then
            euro10.Visible = True
            Beep
    If (lblnumber1.Caption = 7) And (lblNumber2.Caption = 7) And (lblnumber3.Caption = 7) Then
            euro20.Visible = True
            Beep
    End If
End Sub

Het heeft volgens mij iets te maken met de afsluiting..

Wie kan mij helpen??


alvast bedankt.

M.v.G.
Robert

 

[niekfct]

Private Sub cmdSpin_Click()

If (lblnumber1.Caption = 7) Or (lblNumber2.Caption = 7) Or (lblnumber3.Caption = 7) Then
euro5.Visible = True
Beep
If (lblnumber1.Caption = 7) And (lblNumber2.Caption = 7) Then
euro10.Visible = True
Beep

Je moet waarschijnlijk na ELKE if een endif krijgen.. zoals dit:

Private Sub cmdSpin_Click()
    
    If (lblnumber1.Caption = 7) Or (lblNumber2.Caption = 7) Or (lblnumber3.Caption = 7) Then
            euro5.Visible = True
            Beep
   [COLOR="Red"] EndIf[/COLOR]
    If (lblnumber1.Caption = 7) And (lblNumber2.Caption = 7) Then
            euro10.Visible = True
            Beep
    [COLOR="Red"]EndIf[/COLOR]

Dit heb je wel bij het laatste blok, maar dit moet dus bij alle

 

[pc-freak1]

Bedankt dit bleek te werken.

bedankt voor je snelle reactie top!!!!