Scusa, ho scritto una cosa sbagliata!

codice:
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
        Case 21 To 40
            cmd2.Enabled = True
        Case 41 To 60
            cmd3.Enabled = True
        Case 61 To 80
            cmd4.Enabled = True
    End Select
End Sub