Dim text As String
Dim caption As String
Dim buttons As MessageBoxButtons
Dim icon As MessageBoxIcon
Dim defaultButton As MessageBoxDefaultButton
Dim options As MessageBoxOptions
Dim returnValue As DialogResult

returnValue = Me.ShowMessageBox(text, caption, buttons, icon, defaultButton, options)

Protected Function ShowMessageBox ( _
		text As String, _
		caption As String, _
		buttons As MessageBoxButtons, _
		icon As MessageBoxIcon, _
		defaultButton As MessageBoxDefaultButton, _
		options As MessageBoxOptions _
) As DialogResult

protected DialogResult ShowMessageBox (
		string text,
		string caption,
		MessageBoxButtons buttons,
		MessageBoxIcon icon,
		MessageBoxDefaultButton defaultButton,
		MessageBoxOptions options
)

protected:
DialogResult ShowMessageBox (
		String^ text, 
		String^ caption, 
		MessageBoxButtons buttons, 
		MessageBoxIcon icon, 
		MessageBoxDefaultButton defaultButton, 
		MessageBoxOptions options
)

protected DialogResult ShowMessageBox (
		String text, 
		String caption, 
		MessageBoxButtons buttons, 
		MessageBoxIcon icon, 
		MessageBoxDefaultButton defaultButton, 
		MessageBoxOptions options
)

protected function ShowMessageBox (
		text : String, 
		caption : String, 
		buttons : MessageBoxButtons, 
		icon : MessageBoxIcon, 
		defaultButton : MessageBoxDefaultButton, 
		options : MessageBoxOptions
) : DialogResult