Imports System

​

Public Module Module1

    Public Sub Main()

        Dim x As Integer = If(DateTime.Now.Millisecond > 499, 5, 10)

        Dim y As Integer = If(x = 10, 5, 10)

        Console.WriteLine("x: {0}, y: {1}", x, y)

    End Sub

End Module