Private Declare Function InternetOpen Lib "wininet.dll" Alias _
        "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType _
        As Long, ByVal sProxyName As String, ByVal sProxyBypass _
        As String, ByVal lFlags As Long) As Long
 
    '### Für den Proxybetrieb
    Proxy = "...."
    hOpen = InternetOpen(FTP_UAgent, INTERNET_OPEN_TYPE_PROXY, _
            Proxy, vbNullString, 0)
 
 
    '### Ohne Proxy
    hOpen = InternetOpen(FTP_UAgent, INTERNET_OPEN_TYPE_DIRECT, _
            vbNullString, vbNullString, 0)
 
    If hOpen <> 0 Then
        If Check1.Value Then nFlag = INTERNET_FLAG_PASSIVE
        hConnection = InternetConnect(hOpen, Label10.Caption, _
                      INTERNET_INVALID_PORT_NUMBER, _
                      Label13.Caption, Label14.Caption, _
                      INTERNET_SERVICE_FTP, nFlag, 0)