Jogo da Forca em VB 6

Olá pessoas!

Estou criando um joguinho simples da forca, mas estou com uma dúvida se minha lógica está certa. Vejam o que fiz por exemplo quando a pessoa clica no botão B:

Private Sub cmdB_Click()If (lblCab.Visible = False) + (lblCorp.Visible = False) + (lblBE.Visible = False) + (lblBD.Visible = False) + (lblPE.Visible = False) + (lblPD.Visible = False) ThenlblCab.Visible = TruecmdB.Enabled = FalseExit SubElse If (lblCab.Visible = True) + (lblCorp.Visible = False) + (lblBE.Visible = False) + (lblBD.Visible = False) + (lblPE.Visible = False) + (lblPD.Visible = False) Then lblCorp.Visible = True cmdB.Enabled = False Exit Sub Else If (lblCab.Visible = True) + (lblCorp.Visible = True) + (lblBE.Visible = False) + (lblBD.Visible = False) + (lblPE.Visible = False) + (lblPD.Visible = False) Then lblBE.Visible = True cmdB.Enabled = False Exit Sub Else If (lblCab.Visible = True) + (lblCorp.Visible = True) + (lblBE.Visible = True) + (lblBD.Visible = False) + (lblPE.Visible = False) + (lblPD.Visible = False) Then lblBD.Visible = True cmdB.Enabled = False Exit Sub Else If (lblCab.Visible = True) + (lblCorp.Visible = True) + (lblBE.Visible = True) + (lblBD.Visible = True) + (lblPE.Visible = False) + (lblPD.Visible = False) Then lblPE.Visible = True cmdB.Enabled = False Exit Sub Else If (lblCab.Visible = True) + (lblCorp.Visible = True) + (lblBE.Visible = True) + (lblBD.Visible = True) + (lblPE.Visible = True) + (lblPD.Visible = True) Then lblPD.Visible = True cmdB.Enabled = False Exit Sub End If End If End If End If End IfEnd IfEnd Sub

Ou seja, estou verificando para deixar visível os labels com os nomes, mas o estranho é que quando copio este código para as outras letras, só mudando alguns parâmetros não acontece nada. Exemplo no segundo IF ele verifica se a Cabeça do boneco está visível ele ativa o corpo, mas o estranho é que não está ativando... Alguém viu algo de errado em minha lógica?

Abraços!