I am doing something simple, but its not working

[dimava]

can someone please tell me whats wrong:

Private Sub Command3_Click()

If txtuser.Text = Label2.Caption Then
If txtpass.Text = Label3.Caption Then
End
Else
If txtpass.Text = "ZQXWCEVRBT" Then
End

Else:
If Shape1.BackColor = &H8000000F Then
Shape1.BackColor = &HC0C0FF
Label6.ForeColor = &HFF&
Else
If Shape2.BackColor = &H8000000F Then
Shape2.BackColor = &HC0C0FF
Label7.ForeColor = &HFF&
Else
If Shape3.BackColor = &H8000000F Then
Shape3.BackColor = &HC0C0FF
Label8.ForeColor = &HFF&
Else
If Shape4.BackColor = &H8000000F Then
Shape4.BackColor = &HC0C0FF
Label9.ForeColor = &HFF&

End If
End If
End If
End If

End If
End If
End If

End Sub

I'm sure that this is simple, but I'm not sure what I'm doing wrong I'm thinking that maybe I cant put a IF after a ELSE:
please help

Private Sub Command3_Click()

If txtuser.Text = Label2.Caption Or txtpass.Text = Label3.Caption Or txtpass.Text = "ZQXWCEVRBT" Then End
If Shape1.BackColor = &H8000000F Then
Shape1.BackColor = &HC0C0FF
Label6.ForeColor = &HFF&
ElseIf Shape2.BackColor = &H8000000F Then
Shape2.BackColor = &HC0C0FF
Label7.ForeColor = &HFF&
ElseIf Shape3.BackColor = &H8000000F Then
Shape3.BackColor = &HC0C0FF
Label8.ForeColor = &HFF&
ElseIf Shape4.BackColor = &H8000000F Then
Shape4.BackColor = &HC0C0FF
Label9.ForeColor = &HFF&
End If
End Sub

Hopefully that'll work.

[dimava]

sorry, it doesn't work

what it is, is 4 circles with labels inside them, and the person has 4 guesses to get a name

and the first time he gets it wrong, the first circle becomes a brite color

the second time he gets it wrong, the second circle becomes a brite color, and the firts circle remains brite

but now none of the circles are changing colors




and also, if you can look at the post labeled CD TRACK or something on the first page of the posts, you were giving me help with a cd player, and i need more help with it, I posted another thing there that asks what I do the the 2line


thanks in advance