Jogo da Forca em VB 6

[salese 0]

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!

[salese 0]

OPA! Consegui de outra maneira... fazia tempo que não mexia no VB... hehe Valew!!!