[VB] Client per CHAT

[Toeke]

Originariamente inviato da Dr.FixMan

Dim i As Integer 
For i = 1 To UBound(IgnoraUtenti) 
   If IgnoraUtenti(i) = Nickname Then Exit Function 
Next i 

   Dim IgnoraUtenti() As String
   ReDim IgnoraUtenti(0) As String
   ReDim Preserve IgnoraUtenti(UBound(IgnoraUtenti) + 1) As String
   IgnoraUtenti(UBound(IgnoraUtenti)) = Nickname 

Questo serve per caricare l'arry con gli IgnoraUtenti