Code:
Public Delegate Sub Show(ByVal str As String)
Public Shared Sub Main
Dim Shower As Show = Delegate.CreateDelegate(GetType(Show), GetType(MessageBox).GetMethod("Show", New Type() {GetType(String)}))
Shower.Invoke("Hello World!")
End Sub