1Imports System
2Imports System.Collections
3Imports System.Reflection
4
5Namespace IfElseIfElse2
6    Class Test
7        Private Shared Value As Integer
8        Shared Sub Test(ByVal p As Integer)
9            value = p
10        End Sub
11
12        Shared Function Main() As Integer
13            Dim i As Integer
14            i = 30
15            main = 245
16            If i = 10 OrElse i < 10 Then
17                test(1)
18            ElseIf i = 20 OrElse i < 20 Then
19                test(2)
20            Else
21                test(3)
22            End If
23            Return value - 3
24        End Function
25    End Class
26End Namespace