SqlConnection InfoMessage event

CREATE PROCEDURE MessagePumpTest
AS
BEGIN
	-- Simplified procedure that I can use to test message pumping without putting a load on the database
	print '=================================================='
	print 'Starting test procedure:   ' + convert(varchar(23), getdate(), 121)
	RAISERROR( '',0,1) WITH NOWAIT

	DECLARE @I int
	Set @I=1

	WHILE @I <= 50
	BEGIN
		print '------------------------------------------'
		Print 'Starting pass ' + cast(@I as char(2)) + ':  ' + convert(varchar(23), getdate(), 121)
		RAISERROR( '',0,1) WITH NOWAIT

		WAITFOR DELAY '00:00:10' -- simulate 10 seconds of work, but don't really do anything

		print 'Finished pass ' + cast(@I as char(2))+ ':  ' + convert(varchar(23), getdate(), 121)
		print ''

		Set @I = @I + 1
	END 

	print 'All passes finished.'
	print ''
END

Imports System.Data.SqlClient

Module Module1
    Const ConnectionString As String = "#################"
    Const ProcedureName As String = "MessagePumpTest"

    Sub Main()
        Try

            Using conn As New SqlConnection(ConnectionString), _
                cmd As New SqlCommand(ProcedureName, conn)
                cmd.CommandType = CommandType.StoredProcedure
                cmd.CommandTimeout = 0
                AddHandler conn.InfoMessage, AddressOf GetMessage
                conn.FireInfoMessageEventOnUserErrors = True

                conn.Open()
                cmd.ExecuteNonQuery()
            End Using

        Catch ex As Exception
            Console.WriteLine("ERROR running " & ProcedureName)
            Console.WriteLine("Message: " & ex.Message)
            Console.WriteLine("Source: " & ex.Source)
        End Try
    End Sub

    Sub GetMessage(ByVal sender As Object, ByVal e As SqlInfoMessageEventArgs)
        Console.WriteLine(e.Message)
    End Sub
End Module