[hassanalhawy]

باستخدام أكثر من متغير
Dim a As Integer = 5
Dim b As Integer = 6
Select Case True
Case a < 5, b > 6
MsgBox("Ok")
Case Else
MsgBox("No")
End Select