Usando um listbox.. com várias linhas de 1 *.txt

oi ppl .. consegui por isto a funcionar!!

estou postando .. como ninguem respondeu.. talvez seje util :)

tive de deselvolver muito o code ..

olhando para o code .. ja da para percerber alguma coisa :)

Private Sub cmdTestAddresses_Click()
'
   Dim i As Integer
   Dim sHostName As String
'
   If txtVerClickEmLoadList = "" Then ' Verifica se existe lista de addresses
       MsgBox "The list of addresses is empty!", vbInformation, _
           "Information!"
   End If
'
    ltbAddressActives.Clear 'limpa o listbox
    ltbAddressInactives.Clear 'limpa o listbox
'
    For i = 0 To ltbAddress.ListCount - 1
     If PL_RedeInitialize() Then
     'pass the host address to the function
      sHostName = ltbAddress.List(i)
      txtTestIP = GetIPFromHostName(sHostName)
      PL_RedeLinpa
     Else
        MsgBox "Windows Sockets for 32 bit Windows " & _
               "is not successfully responding."
   End If
'Variavel para verificar o estado do address é activo (isto porque fico a saber o IP)
   If txtTestIP = "" Then
          ltbAddressInactives.AddItem "Address: " & ltbAddress.List(i) & " - " & "Not Checked"
          txtTestIP.Text = ""
          txtTestIP.Refresh
      Else
          ltbAddressActives.AddItem "Address: " & ltbAddress.List(i) & " - " & "IP: " & txtTestIP
          txtAlinharParaTxtFile.SelText = ltbAddress.List(i) & ";"
          txtTestIP.Text = ""
          txtTestIP.Refresh
    End If
   Next i
'
End Sub
'

Nota: tambem fiz o upload do codigo de fonte para o server :)

O nome do projecto é: Test of Addresses

Abraços ...