Public Class BaseDialog
    Private lblInfo As New Label With _
           {.Parent = Me, .Width = 300, .Height = 100}
 
    Private btnOk As New Button With _
           {.Parent = Me, .Top = 110, .Text = "&OK", _
            .DialogResult = DialogResult.OK}
 
    Protected btnAbort As New Button With _
           {.Parent = Me, .Top = 140, .Text = "&Abort", _
            .DialogResult = DialogResult.Abort}
 
 
    Public Property Message() As String
        Set(value As String)
            lblInfo.Text = value
        End Set
        Get
            Return lblInfo.Text
        End Get
    End Property
 
 
    Private Sub BaseForm_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(310, 200)
        Me.FormBorderStyle = _
            Windows.Forms.FormBorderStyle.FixedDialog
    End Sub
End Class

Public Class DialogForm
    Inherits BaseDialog
 
    Private Sub DialogForm_Load(sender As Object, _
        e As System.EventArgs) Handles Me.Load
 
        Message = "Dieser Text dient nur der Information."
        Me.BackColor = Color.White
        btnAbort.BackColor = Color.Red 'Protected: ermöglicht Zugriff
    End Sub
 
End Class

    Using D1 As New DialogForm
       With D1
          .Message = "irgendeine Meldung"
          If .ShowDialog = Windows.Forms.DialogResult.Abort Then
             'Code bei Abbruch durch Benutzer
          Else
             'Code bei OK durch Benutzer
          End If
      End With
   End Using