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