Imports System
Imports System.Text
Imports System.Text.RegularExpressions
Public Class MainClass
Shared Sub Main( )
Dim blnTrue As Boolean = True
Dim blnOne As Boolean = 1
Dim blnNegOne As Boolean = -1
Dim blnFalse As Boolean = False
If Convert.ToInt16(blnNegOne) = 1 Then
Console.WriteLine(blnFalse)
Console.WriteLine(Convert.ToString(Convert.ToInt32(blnFalse)))
End If
End Sub 'Main
End Class
|