Ci provo...anche se non conosco il select case!

Private Sub List1_Click()
Dim v As Integer
v = Val(List1.Text)

cmd1.Enabled = False
cmd2.Enabled = False
cmd3.Enabled = False
cmd4.Enabled = False

Select Case v
Case 1 To 20
cmd1.Enabled = True
' da completare
End Select
Select Case v
Case 21 To 40
cmd2.Enabled = True
' da completare
End Select
Select Case v
Case 41 To 60
cmd3.Enabled = True
' da completare
End Select
Select Case v
Case 61 To 80
cmd4.Enabled = True
' da completare
End Select
End Sub

E' giusto?