Dim s,T,Tz() As String
e.Form.Controls("RelationTable1").Visible = True
s = e.Form.Controls("TextBox1").Value
Select Case Val(s.SubString(0,4))
Case 6001
T = "2,14,20,23,26"
Case 6002
T = "3,15,22,24,27"
Case 6003,6004
T = "3,15,21,22,24,27"
Case 6005,6006
T = "4,9,24,27,28"
Case 6007 to 6012,6017
T = "5,8,11,17,28"
Case 6013 to 6016,6018 to 6020
T = "5,8,11,19,25"
Case 6100 to 6107
T = "6,12,29,31,33"
Case 6121,6022 to 6028
T = "7,13,30,32,34"
End Select
Tz = T.split(",")
if Tz.length > 1 then
for n As Integer = 0 to Tz.length-1
e.Form.Controls("RelationTable" & Tz(n)).Visible = True
Next
end if