Private Sub Button1_Click( ByVal sender As System.Object,  ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim d As New Dialog1
        Dim dr As DialogResult = d.ShowDialog()
        If dr = Windows.Forms.DialogResult.OK Then
            ' was immer
        End If
        d.Dispose()
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist