Imports System

Public Module Module1

    Public Sub Main()

        Dim A As Boolean

        Dim B As Integer

        Dim C As Integer

        B = false

        C = true

        A = B = C

        Console.WriteLine(A)

    End Sub

End Module