Mega Code Archive

 

Categories / VB.Net / Data Structure

 

Uses a cursor to step through the message queues and list the public queues on the network

Delegate Sub DisplayMessage(message As String)  Module TestCustomDelegate    Public Sub Main       Dim messageTarget As DisplayMessage        If Environment.GetCommandLineArgs().Length > 1 Then          messageTarget = AddressOf ShowWindowsMessage       Else          messageTarget = AddressOf Console.WriteLine       End If       messageTarget("Hello, World!")    End Sub    Private Sub ShowWindowsMessage(message As String)       MsgBox(message)    End Sub    End Module