貼一小行是怎樣
Text.Text = Winsock1(i).RemoteHostIP & ":" & str & vbCrLf & Text.Text

應該是個迴圈吧
把winsock1所有的ip顯示到text上