Глядишь — кому-нибудь будет полезно.
Надоело писать длинные вызовы MessageBox, посему написал несколько врапперов.

    ' Simplified MsgBox functions set
    Public Sub AlertWarning(ByVal owner As IWin32Window, ByVal message As String)
        MessageBox.Show(owner, message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    End Sub
    Public Sub AlertInfo(ByVal owner As IWin32Window, ByVal message As String)
        MessageBox.Show(owner, message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub
    Public Function AlertYesNo(ByVal owner As IWin32Window, ByVal message As String) As Boolean
        Return MessageBox.Show(owner, message, Application.ProductName, _
            MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes
    End Function
    Public Function AlertOkCancel(ByVal owner As IWin32Window, ByVal message As String) As Boolean
        Return MessageBox.Show(owner, message, Application.ProductName, _
            MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK
    End Function

Использование из любой формы:

    If AlertYesNo(Me, "Are you sure you want to delete this item?") Then
      ' kill'em all
    End If