9 lines
103 B
Text
9 lines
103 B
Text
Dim a As Integer = 1
|
|
Select Case a
|
|
Case 1
|
|
sub1
|
|
Case 2
|
|
sub2
|
|
Case Else
|
|
sub3
|
|
End Select
|