Nada

Dim TJ2 As String * 1
Dim cont As Integer
Dim TJ1 As String * 1
Private Sub BCKCA1_Click()
BCKCA1.Enabled = False
BCKCA2.Enabled = True
CTKCA3 = cont + 1TJ1 = CTKCA1
TJ2 = CTKCA2
If TJ1 = 1 Or TJ2 = 1 Then TPKCA1.Visible = False
If TJ1 = 2 Or TJ2 = 2 Then TPKCA2.Visible = False
If TJ1 = 3 Or TJ2 = 3 ThenTPKCA3.Visible = False
If TJ1 = 4 Or TJ2 = 4 Then TPKCA4.Visible = False
If TJ1 = 5 Or TJ2 = 5 Then TPKCA5.Visible = False
If TJ1 = 6 Or TJ2 = 6 Then TPKCA6.Visible =False
If TJ1 = 7 Or TJ2 = 7 Then TPKCA7.Visible = False
If TJ1 = 8 Or TJ2 = 8 Then TPKCA8.Visible = False

If (TJ1 = 1 And TJ2 = 7) Or (TJ1 = 7 And TJ2 = 1) ThenIMKCA1.Visible = False
IMKCA7.Visible = False
cont = cont + 1
Else
If (TJ1 = 2 And TJ2 = 8) Or (TJ1 = 8 And TJ2 = 2) Then
IMKCA2.Visible = FalseIMKCA8.Visible = False
cont = cont + 1
Else
If (TJ1 = 3 And TJ2 = 6) Or (TJ1 = 6 And TJ2 = 3) Then
IMKCA3.Visible = False
IMKCA6.Visible = False
cont = cont + 1
Else
If(TJ1 = 4 And TJ2 = 5) Or (TJ1 = 5 And TJ2 = 4) Then
IMKCA4.Visible = False
IMKCA5.Visible = False
Else
End If
End If
End If
End If

End Sub

Private SubBCKCA2_Click()
BCKCA2.Enabled = False
BCKCA1.Enabled = True
CTKCA1 = ""
CTKCA2 = ""
If TJ1 = 1 Or TJ2 = 1 Then TPKCA1.Visible = True
If TJ1 = 2 Or TJ2 = 2Then TPKCA2.Visible = True
If TJ1 = 3 Or TJ2 = 3 Then TPKCA3.Visible = True
If TJ1 = 4 Or TJ2 = 4 Then TPKCA4.Visible = True
If TJ1 = 5 Or TJ2 = 5 ThenTPKCA5.Visible = True
If TJ1 = 6 Or TJ2 = 6 Then TPKCA6.Visible = True
If TJ1 = 7 Or TJ2 = 7 Then TPKCA7.Visible = True
If TJ1 = 8 Or TJ2 = 8 Then TPKCA8.Visible = True