Private Sub btnFK_Click()
    PgmAktion = "F"
    SelKonto = 0
    SelOption = " "
    ' Form "Kontoübersicht" positionieren
    GetWindowRect sevFKonto.hWnd, R
    ClientToScreen sevFKonto.hWnd, p
    Load Kontoübersicht
    Kontoübersicht.Move p.x * Screen.TwipsPerPixelX, _
        (p.y + (R.bottom - R.top)) * Screen.TwipsPerPixelY
    ' Kontoübersicht rufen
    Kontoübersicht.Show vbModal
    If SelNr > 0 Then
       With sevFKonto
          .ListIndex = .FindItem(SelNr)
       End With
       Me.Label65.Caption = SelOption
    End If
End Sub