Autoseleccionar y enviar listview (vb6)

mk2209
31 de Diciembre del 2008
buenas, tengo un listview que recibe datos de un servidor cada x segundos, lo que necesito es que cada vez que llegan datos, automaticamente copie ese ultimo item con los subitems y asi poder mandarle esos mismos datos a otro usuario que estara conectado conmigo, lo tengo todo hecho a falta de la funcion de cuando lleguen datos al listview se seleccione la ultima fila y lo mande, digamos el equivalente a "Private Sub Text1_Change()" pero para listview y solo el ultimo item con subitems, en resumen, cuando lleguen datos al listview se autoseleccione la ultima fila y hacer un call command3_click

Private Sub Command3_Click()
Dim linea As String, x As Integer, i As Integer

For i = 1 To ListView1.ListItems.Count
linea = ListView1.ListItems(i) & vbTab

For x = 1 To ListView1.ColumnHeaders.Count - 1
linea = linea & ListView1.ListItems.Item(i).SubItems(x) & vbTab

Next
Winsock1.SendData linea
Next

End Sub

un saludo!