CXF Web服务限制(CXF web service throttling)

 我不是使用dim来创建表单，而是使用visual studio的添加新项目添加表单 - 可以通过右键单击右侧的项目名称（不是解决方案名称）来访问该表单。 弹出上下文菜单。 选择“添加”，然后单击“新建项目”，并选择与项目类型相同的相应表单。 
 
 将progressBar添加到表单 - 如果需要，可以将名称保留为progressBar1，但如果更改，则需要在下面的代码中更改对它的引用 
 
 在新表单代码的最顶部添加您用于导入winscp内容的相同导入行。 
 
 将此代码块（与更新后的问题中的代码类似）放入新表单中。 我已经编辑了一些代码，因此它应该以动态形式工作。 
 
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    Me.Cursor = Cursors.WaitCursor
    WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)
    progressBar1.Minimum = 0
    progressBar1.Maximum = 1
    progressBar1.Value = 0
    Do
        progressBar1.value=winscp.FileProgressEventArgs.FileProgress
        progressbar1.refresh
    until progressbar1.value=1
    Me.Cursor = Cursors.Default
    form.Close()
End Sub
 
 例如Form1.myremotePicturePath和Form1.ladujZdjeciaPath。 
 
 此外，您最初在原始表单中定义函数和这两个变量，您需要将它们从Private更改为Public，以便新表单可以看到它们 
 
 我认为应该这样做。 如果你有任何问题让我知道，但我不会在接下来的几天回家，所以我可能不会回复直到深夜 - 有点像今晚:)） 

Rather than use dim to create the form, I would add the form using visual studio's add new item - which is accessible by right clicking on your Project name(not solution name) on the right hand side. A context menu pops up. Choose "Add" then click "New Item" and choose the appropriate form that is the same type as your project.
 
Add the progressBar to the form - and you can leave the name as progressBar1 if you want, but if you change is you need to change the references to it in the code below
 
At the very top of the code for the new form add the same imports line that you used to import the winscp stuff.
 
Put this block of code (similar to your code in your updated question) into the new form. I've edited the code a bit so that it should work in the dynamic form.
 
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    Me.Cursor = Cursors.WaitCursor
    WinScp.GetFile(myremotePicturePath, ladujZdjeciaPath, True)
    progressBar1.Minimum = 0
    progressBar1.Maximum = 1
    progressBar1.Value = 0
    Do
        progressBar1.value=winscp.FileProgressEventArgs.FileProgress
        progressbar1.refresh
    until progressbar1.value=1
    Me.Cursor = Cursors.Default
    form.Close()
End Sub
 
e.g Form1.myremotePicturePath and Form1.ladujZdjeciaPath.
 
Also where you originally define the function and those two variables in your original Form, you'll need to change their from Private to Public so that the new form can see them
 
I think that should do it. If you have any problems let me know, but I wont be home till lateish in the next few days, so I may not reply till late in the evening - a bit like tonight :))