Imports System
Public Class MainClass
' delegate to be a pointer to a subroutine
' that has a string parameter.
Private Delegate Sub StringDisplayerType(ByVal str As String)
Shared Sub Main(ByVal args As String())
Dim m_DisplayStringRoutine As StringDisplayerType
' Assign the variable to a subroutine.
m_DisplayStringRoutine = AddressOf ShowStringInMessageBox
' Invoke the delegate's subroutine.
m_DisplayStringRoutine("Hello world")
m_DisplayStringRoutine = AddressOf ShowStringInOutputWindow
' Invoke the delegate's subroutine.
m_DisplayStringRoutine("Hello world")
End Sub
Shared Private Sub ShowStringInOutputWindow(ByVal str As String)
Console.WriteLine(str)
End Sub
Shared Private Sub ShowStringInMessageBox(ByVal str As String)
Console.WriteLine(str)
End Sub
End Class