...
 
        ' Verbindung herstellen
        hSocket = sevFTP_Connect(sServer, sUser, sPassword, nPort)
        SetStatus
        If hSocket > 0 Then
          cmdConnect.Caption = "Trennen"
          bIsConnected = True
 
          InitRemoteFiles "/"
          lvwRemote.SetFocus
          If lvwRemote.ListItems.Count > 0 Then
          MsgBox lvwRemote.ListItems(0)
 
' hier stoppt das Programm immer 
            Set lvwRemote.SelectedItem = lvwRemote.ListItems(0)
 
          End If
        Else
          MsgBox "Verbindung konnte nicht hergestellt werden." & vbCrLf & _
            "Statuscode: " & CStr(sevFTP_StatusCode()) & vbCrLf & _
            sevFTP_StatusMsg(), vbCritical + vbOKOnly
        End If
        Screen.MousePointer = 0
      End If
    End With
    Unload frmConnect
...

Gruss
Bobbel