Ajuda :) um launcher dai preciso desse comando helpp pf ;D

iai pessoal da aldeia estou precisando de ajuda como sempre
bom eu tou criando um launcher com autoupdate no Visual basic 2008 express , porem
eu queria fazer uma coisa so que n tenho a minima noção !!! alguem me ajuda
bom eu queria colocar aquela "Progress bar" para mostrar o tamanhado do download , o tempo
que falta e talz :/ so q n consigo , eu estou usando o codigo de baixar arquivo e talz alguem poderia me explicar fazer um tutorialzinho de como eu faço isso?! pf eu achei isso na internet ta falando "BAIXAR ARQUIVOS DA INTERNET E EXIBIR O PROGRESSO VB" o codigo abaixo

Código:

Private Function DownloadFileWithProgress(ByVal SourceURL As String, _
                            ByVal DestinationPath As String, _
                            ProgressControl As Object, _
                            InetControl As Object) As Boolean

    Const CHUNK_SIZE As Long = 1024

    Dim lBytesReceived As Long
    Dim lFileLength As Long
    Dim sHeader As String
    Dim b() As Byte
    Dim i As Integer

    DoEvents

    ProgressControl.Value = 0
    ProgressControl.Min = 0
    ProgressControl.Max = 100

    DoEvents

    With InetControl
        .url = SourceURL
        .Execute , "GET", , "Range: bytes=" & CStr(lBytesReceived) & "-" & vbCrLf

        While .StillExecuting
            DoEvents
        Wend

        sHeader = .GetHeader
    End With

    sHeader = InetControl.GetHeader("Content-Length")
    lFileLength = Val(sHeader)

    DoEvents

    lBytesReceived = 0

    Open DestinationPath For Binary Access Write As #1
        Do
            b = InetControl.GetChunk(CHUNK_SIZE, icByteArray)
            Put #1, , b
            lBytesReceived = lBytesReceived + UBound(b, 1) + 1

            ProgressControl.Value = (Round((lBytesReceived / lFileLength) * 100))
            DoEvents
        Loop While UBound(b, 1) > 0
    Close #1
End Function

porem não sei se ta certo nem sei como usar alguem poderia me ajudar nisso vlw pela atenção obrigado

malz se postei na area errada =/