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.ロック = -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.ロック = 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.熱燗 = -1 Then
    TB(4).VISIBLE = True
  ElseIf PR.常温 = 0 Then
    TB(8).VISIBLE = True
  End If
End If

If PR.熱燗 = -1 Then
  If PR.ぬる燗 = 0 Then
    TB(9).VISIBLE = True
  End If
End If