\'\'\'
Dim s As String = FileSys.ReadAllText("c:\\data\\ftpip.txt")
msgbox(s)
Dim arr() As String = s.Replace(vbcr,"").Split(vblf)
msgbox(arr.length)
For i As Integer = 0 To 2
    Dim ftp0 As New FTPClient
    msgbox(arr(i*3))
    msgbox(arr(i*3+1))
    msgbox(arr(i*3+2))
    ftp0.host=arr(i*3).Split("|")(1)
    msgbox(arr(i*3).Split("|")(1))
    ftp0.Account = arr(i*3+1).Split("|")(1)
    msgbox(arr(i*3+1).Split("|")(1))
    ftp0.password = arr(i*3+2).Split("|")(1)
    msgbox(arr(i*3+2).Split("|")(1))
    If  ftp0.Connect  Then
        Messagebox.Show(ftp0.host + "该服务器可用")
        For iy As Integer = 1 To 3
            Dim ftp1 As New FTPClient
            ftp1.host =ftp0.host
            ftp1.Account = ftp0.Account
            ftp1.password = ftp0.password
            e.Form.Controls("PictureViewer" & iy).FTPclient = ftp1
            msgbox(ftp1.host + "PictureViewer" & iy )
            msgbox(ftp1.Account)
            msgbox(ftp1.password )
        Next
    Else
        Messagebox.Show(ftp0.host + "该服务器不可用")
       
    End If
Next

按照上面的代码，现在有一个问题，就是如果3个服务器第一个服务器可用的话，就结束连接其他的服务器，请问怎么改这个代码？