I've created a prog. that connects to the internet through proxies. I have allowed multiple instances of the form to appear, but I want each new instance to scroll through the list of proxies that is stored in a listbox. The code is like this:

Private Sub Command3_Click()
Dim NewForm As New Form1

NewForm.Show
End Sub

Private Sub Form_Load
prox
end sub

Public Sub proxy()
On Error GoTo err
Dim prox As Integer
List1.ListIndex = List1.ListIndex + 1
Let prox = InStr(List1.Text, ":")
Inet1.proxy = Left(List1.Text, prox - 1)
Inet1.OpenURL "url"
err:
Select Case err.Number
Case 35764
MsgBox "Wait till its done Loading"
End Select
end sub

I want each new form to select a new proxy. How can this be done?