Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        'Listview mit Einträgen füllen
        ListView1.Items.Clear()
 
        For Durchlauf As Integer = 0 To 100
            ListView1.Items.Add("Eintrag " & Durchlauf)
        Next
 
    End Sub
 
    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles ListView1.DoubleClick
 
        'Aktuell ausgewählten Eintrag in Variable speichern
        Dim AktuelleAuswahl As String = ListView1.SelectedItems(0).Text
 
        'Neue Instanz von frmDialog erstellen
        Dim frmDialog As New frmDialog
 
        'Zuweisen des aktuellen Wertes zum Property in frmDialog
        frmDialog.Wert = AktuelleAuswahl
 
        'Dialog aufrufen und wenn OK gedrückt wurde aktuelle Wert wieder 
        ' auslesen und Listview zuweisen.
        If frmDialog.ShowDialog = DialogResult.OK Then
            ListView1.SelectedItems(0).Text = frmDialog.Wert
        End If
 
    End Sub

    'Hier wird der Wert der in frmMain übergeben wird gespeichert
    Public mWert As String
 
    'Property um diesen Wert auszulesen oder neuen zuzuweisen
    Public Property Wert() As String
        Get
            Return mWert
        End Get
        Set(ByVal Value As String)
            mWert = Value
            TextBox1.Text = mWert
        End Set
    End Property
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        'Rückgabe von Abort = nichts machen
        Me.DialogResult = DialogResult.Abort
        Me.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        'Rückgabe von OK, neuen Wert mWert zuweisen
        'dieser kann dann von frmMain wieder ausgelesen werden
        Me.DialogResult = DialogResult.OK
        mWert = TextBox1.Text
        Me.Close()
    End Sub
 
    Private Sub frmDialog_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        'Beim Laden aktuell angezeigten Wert in Textbox darstellen.
        TextBox1.Text = mWert
    End Sub