Inet控件

Inet1.Execute "ftp://hercousa:[email protected]", "SEND D:\joe\work\Procedure\index.htm wwwRoot\index.htm" 
        Inet1.Execute "ftp://hercousa:[email protected]", "SEND D:\joe\work\Procedure\page1.htm wwwRoot\page1.htm" Inet1它是异步传输的,我这样才能使Inet1上传完了第一句的,再上传第二句呢 上传代码 
Private Sub Inet1_StateChanged(ByVal State As Integer) 
    Dim vtData As Variant '数据变量。 
    Select Case State 
    '...没有给出其它情况。 
    Case 1 
        Me.Label8.Caption = "is looking" 
    Case 2 
        Me.Label8.Caption = "success finding " 
    Case 3 
        Me.Label8.Caption = "is connecting" 
    Case 4 
        Me.Label8.Caption = "success connected" 
    Case 5 
        Me.Label8.Caption = "is sending request" 
    Case 6 
        Me.Label8.Caption = "sucess sending" 
    Case 7 
        Me.Label8.Caption = "is receiving" 
    Case 8 
        Me.Label8.Caption = "success receive" 
    Case 9 
        Me.Label8.Caption = "is disconnecting" 
    Case 10 
        Me.Label8.Caption = "success disconnect" 
    Case 11 
        Me.Label8.Caption = "is error" 
    Case icResponseCompleted '12 
        Text4.Text = "" 
        Me.Label8.Caption = "success receive data" 
        Text4.Text = Text4.Text + vPartData 
        vPartData = Inet1.GetChunk(1024, icString) 
    Do While LenB(vPartData) > 0 
        Text4.Text = Text4.Text + vPartData 
        vPartData = Inet1.GetChunk(1024, icString) 
    Loop 
        Text4.Text = Text4.Text + vPartData         Text4.SelStart = Len(Text4.Text) 
    End Select 
End Sub