Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal _
  e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles _
  backgroundWorker1.RunWorkerCompleted
 
        Dim rh As Integer = GridView1.FocusedRowHandle
        Dim col As GridColumn = GridView1.FocusedColumn
 
        Dim f As New frmSuchen(dbX)
        f.Show(Me)
        Dim ID As Integer = f.SelectedID
        [ ... ]    
        f.Close()
 
        ' ------> hier sagt mein Programm Goodbye, wenn das Suchformular 
        ' geschlossen wird.
 
    End Sub