Dim panels() As Panel = Array As Panel(panel1, panel2, panel3, panel4)
...
'then you can easily change panels:
'change to panel i (0 - 3):
For x = 0 to panels.Length - 1
panels(i).visible = x = i
Next
'or more "standard":
If x = i Then panels(i).Visible = True else panels(i).Visible = False