Alarm

Hey jeg er ved at lave et alarm program hvor man kan sende en alarm beskrd til en admin.

jeg bruger listview til at vise mine informationer men hvordan sætter jeg de modtaget data ind?
fx. Username=Frederik Prioity=Medium Note=Hejsa
så skal den indsætt i lw:
TIME Username Prioity Note
----------------------------------------
now() Frederik Medium Hejsa
----------------------------------------

server code:
<code>
Dim text As String
Private Sub Form_Load()
Winsock1.Close
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData text
Set lItem = ListView1.ListItems.Add(, , Now())
lItem.ListSubItems.Add , , text
End Sub


</code>
client code
<code>
Private Sub Command1_Click()
If txtUser.Text = "" Or cboPrio.Text = "" Or txtNote.Text = "" Then
MsgBox "ERROR: All field is not feld!", vbCritical
Else
Winsock1.SendData (txtUser.Text & ":" & cboPrio.Text & ":" & txtNote.Text)
End If
End Sub

Private Sub Form_Load()
Do Until Winsock1.State <> sckClosed
DoEvents
Winsock1.Close
Winsock1.Connect "194.255.58.10", 3537
Loop
End Sub

Private Sub Winsock1_Close()
Winsock1.Close
End Sub


</code>