Dim TB As New Collection
TB.Add(TB1)
TB.Add(TB2)
TB.Add(TB3)
TB.Add(TB4)
TB.Add(TH1)
TB.Add(TH2)
TB.Add(TH3)
TB.Add(TH4)
TB.Add(TH5)

For I = 1 To TB.Count
  TB(I).VISIBLE = False
Next

If PR.ƒƒbƒN = -1 Then
  If PR.—ā = -1 Then
    TB(1).VISIBLE = True
  Else
    TB(5).VISIBLE = True
  End If
End If

If PR.—ā = -1 Then
  If PR.ķ‰· = -1 Then
    TB(2).VISIBLE = True
  ElseIf PR.ƒƒbƒN = 0 Then
    TB(6).VISIBLE = True
  End If
End If

If PR.ķ‰· = -1 Then
  If PR.‚Ź‚éą“ = -1 Then
    TB(3).VISIBLE = True
  ElseIf PR.—ā = 0 Then
    TB(7).VISIBLE = True
  End If
End If

If PR.‚Ź‚éą“ = -1 Then
  If PR.”Mą“ = -1 Then
    TB(4).VISIBLE = True
  ElseIf PR.ķ‰· = 0 Then
    TB(8).VISIBLE = True
  End If
End If

If PR.”Mą“ = -1 Then
  If PR.‚Ź‚éą“ = 0 Then
    TB(9).VISIBLE = True
  End If
End If