'Dialog Instanz
dim dlg as new dlgForm
 
 
with dlg
    'Property mit Daten füttern
    .labeltext=lblText.text
 
    'Dialog aufrufen und Dialogresult auswerten
    if .showdialog=Windows.Forms.DialogResult.OK then
        'bei OK entsprechend handeln, hier: Label aktualisieren
        lblText.text=.labeltext
 
    endif
 
end with

Public Class dlgForm
 
    Sub New()
        InitializeComponent()
    End Sub
 
    'private Variable
    private _lblText as string=string.empty
 
    Public Property Labeltext() as string
        Get
            return _lblText
        End Get
        Set(ByVal value as string)
            _lblText = value
        End Set
    End Property
 
    'Des weiteren benötigst Du 2 Buttons für OK und Cancel
    'die im Click-Event den Dialogresult zurückliefern
 
    Private Sub btnOk_Click(ByVal _
                            sender As System.Object, _
                            ByVal e As System.EventArgs) Handles btnOk.Click
 
        Me.DialogResult = Windows.Forms.DialogResult.OK
 
    End Sub
 
    Private Sub btnCancel_Click(ByVal _
                            sender As System.Object, _
                            ByVal e As System.EventArgs) Handles btnCancel.Click
 
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
 
    End Sub
 
end class

Mit freundlichen Gr??en
DotNetErbse


[Es hei?t Paket und nicht Packet, auch wenn Standard augenscheinlich von Standar(t)e kommt,hei?t es dennoch Standar(d)]