Private Sub ScrollBar1_Change()
With ScrollBar1
Select Case .Value
Case 1
.BackColor = &H808080
.ForeColor = &H0&
Case 2
.BackColor = &HFFFF&
.ForeColor = &HFF0000
Case 3
.BackColor = &HFF00&
.ForeColor = &HFF00FF
Case 4
.BackColor = &HFF0000
.ForeColor = &HFFFF&
End Select
End With
CommandButton1.Select
End Sub