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 helpFilePath As String
Dim keyword As String
Dim returnValue As DialogResult

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

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

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

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

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

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