ProgressBar - Download File (Solved)

[Mc Brain]

Ok, I have this code which works perfectly:

Public ReturnCode As Long
 
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal _
hKey As Long) As Long
 
Declare Function RegOpenKey Lib "advapi32.dll" Alias _
"RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As _
String, phkResult As Long) As Long
 
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias _
"RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName _
As String, ByVal lpReserved As Long, lpType As Long, _
lpData As Any, lpcbData As Long) As Long
 
Public b() As Byte
 
Sub Download(Inet As Inet, strURL As String, DirDest As String, FileToDownload As String)
    If ActiveConnection Then
        Inet.AccessType = icUseDefault
        strURL = strURL + FileToDownload
        ' Retrieve the file as a byte array.
        b() = Inet.OpenURL(strURL, icByteArray)
        
        Open DirDest + FileToDownload For Binary Access _
        Write As #1
        Put #1, , b()
        Close #1
        MsgBox "Done"
    End If
End Sub
 
Public Function ActiveConnection() As Boolean
    Dim hKey As Long
    Dim lpSubKey As String
    Dim phkResult As Long
    Dim lpValueName As String
    Dim lpReserved As Long
    Dim lpType As Long
    Dim lpData As Long
    Dim lpcbData As Long
    ActiveConnection = False
    lpSubKey = "System\CurrentControlSet\Services\RemoteAccess"
    ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, _
                phkResult)
    If ReturnCode = ERROR_SUCCESS Then
        hKey = phkResult
        lpValueName = "Remote Connection"
        lpReserved = APINULL
        lpType = APINULL
        lpData = APINULL
        lpcbData = APINULL
        ReturnCode = RegQueryValueEx(hKey, lpValueName, _
        lpReserved, lpType, ByVal lpData, lpcbData)
        lpcbData = Len(lpData)
        ReturnCode = RegQueryValueEx(hKey, lpValueName, _
        lpReserved, lpType, lpData, lpcbData)
        If ReturnCode = ERROR_SUCCESS Then
            'If lpData = 0 Then
            '    ActiveConnection = False
            'Else
            '    ActiveConnection = True
            'End If
            ActiveConnection = lpData
        End If
        RegCloseKey (hKey)
    End If
    
End Function

The problem is that I'd like to show a ProgressBar and have no clue how to do it. I thought using a Timer and asking for the UBound(b) but doesn't work. Any other ideas?

[Mc Brain]

Nevermind... I've figured it out.