Cb.BackColor = Array(&HFF00&, &HFFFF&, &HFFFF00, &H80FF&, &HFF80FF, &H8080&)(n + 1)
Private Sub Cb_Click()
n = Right(Cb.Name, 1)
With User
For i = 0 To 4
.Controls("C" & i).BackColor = &HC0C0C0
.M1.Pages(i).Visible = i = n
Next
Cb.BackColor = Array(&HFF00&, &HFFFF&, &HFFFF00, &H80FF&, &HFF80FF, &H8080&)(n + 1)
.M1.Value = n: .M1.BackColor = Cb.BackColor
End With
End Sub
Cb.BackColor = Array(&HFF00&, &HFFFF&, &HFFFF00, &H80FF&, &HFF80FF, &H8080&)(n + 1)
Array(&HFF00&, &HFFFF&, &HFFFF00, &H80FF&, &HFF80FF, &H8080&)