Select Expression1
Case 1
' Statement block for Case 1
Case 2
' Statement block for Case 2
Case N
' More Case blocks as needed
Case Else
' Catch-all
End Select
اينم مثالش
Number
Case 1
txtResult.Text = "1"
Case 2 To 10
txtResult.Text = "2"
Case Is < 20
txtResult.Text = "3"
Case Is > 20
txtResult.Text = "4"
End Select
كافيه؟