Private Sub DisplayMessage(ByVal owner As IWin32Window, ByVal message As String, ByVal caption As String, ByVal buttons As MessageBoxButtons, ByVal icon As MessageBoxIcon)
' If the owner is not set or the owner if the current form and it is a MDI Child,
' use the overload with the IWin32Window owner
If owner IsNot Nothing Then
Dim ownerForm As Form = TryCast(Form.FromHandle(owner.Handle), Form)
If ownerForm IsNot Nothing AndAlso ownerForm.IsMdiChild = True Then
UltraMessageBoxManager.Show(message, caption, buttons, icon)
Else
UltraMessageBoxManager.Show(owner, message, caption, buttons, icon)
End If
Exit Sub
End If
UltraMessageBoxManager.Show(message, caption, buttons, icon)
End Sub