listening to AIM

[R.a.B.B.i.T]

searched:no finds
what im trying to do (basically) is just bind a sock to port 5190, and listen for incoming AIM chat...from an im not a room..
my code is:

Public Sub Form_Load()
    sckAIM.LocalPort = 5190
    sckAIM.Bind
    sckAIM.Listen
End Sub
 
Public Sub sckAIM_DataArrival(ByVal bytesTotal As Long)
    Dim strTemp As String
    sckAIM.GetData strTemp, vbString
    ParseAIM strTemp
End Sub

nothing happens tho..