Private Sub mBtnSuchen_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles mBtnSuchen.Click
        Dim f As New frmSuchen
        f.ShowDialog()
        If f.SelectedID >= 0 Then
            m_ID = f.SelectedID
            f.Dispose()
        Else
            ' SelectedID = -1, Funktion verlassen
            Exit Sub
        End If
 
        dbX.m_Konto = New clsKonto(m_Konto_ID)
        frmRegister.selKonto = dbX.m_Konto
 
        Dim f0 As New frmRegister
        f0.MdiParent = Me
 
        f0.Show() ' ################   Visual Basic runs Out of Memory
 
 
    End Sub