VB.Net Tutorial/Statements/Switch

Microsoft.VisualBasic.Switch

<source lang="vbnet">Module Module1

   Sub Main()
       Dim intValue As Integer = -10

       Console.WriteLine("Absolute value: " & _
           Microsoft.VisualBasic.Switch(intValue < 0, -1 * intValue, intValue >= 0, intValue))
   End Sub

End Module</source>

Absolute value: 10