[hassanalhawy]

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