Desaparecer [Labels] con sentencia IF y ElSE en [VB] Ayuda

Desarrollo de aplicaciones de escritorio C#, c++, Java, Net, VB... y todos los frameworks y tecnologías relacionadas co este tipo de aplicaciones.
Hola amigos de amsspecialis.

Tengo un pequeño problema y no se cual es el motivo

Estoy haciendo una prueba con las sentencias de IF y ELSE en Visual Basic

Imagen

Lo que quiero hacer es que al dar cada click se vaya desapreciando cada Label son 5 Label, entonces en 5 click se tendrian que desaparecer los 5 label, esto lo tengo que hacer con sentencias IF y ELSE.
Ya he echo el codigo, pero me surge un error, al dar el 3er click, ya que no desaparece el label 3

Aqui el codigo
Private Sub Command5_Click()
  
    If (Label1.Visible = True) Then
    Label1.Visible = False
        Else

' -- Si el label 1 esta desactivado entonces -- '

    If (Label1.Visible = False) Then
    Label2.Visible = False
        Else
        
' -- Si el label 2 esta desactivado entonces -- '

    If (Label2.Visible = False) Then
    Label3.Visible = False
       Else

' -- Si el label 3 esta desactivado entonces -- '

    If (Label3.Visible = False) Then
     Label4.Visible = False
       Else
  
  ' -- Si el label 4 esta desactivado entonces -- '

    If (Label4.Visible = False) Then
  MsgBox "La etiqueta Blanca  esta desactivada"
  Label5.Visible = False
      Else
 
  
   End If
   End If
   End If
   End If
   End If
  
 
End Sub


Espero y me puedan ayudar!
Gracias de antemano

para otras plataformas hay un foro , lo muevo a programacion c#,etc...
I like to talk, to exchange experiences in this forum. It is very good to very good