I Got 2 Qestion i need help on pelase help it with winsock.ocx

[XxEvilxX]

first question why aint this working

Private Sub Timer1_Timer()
Call WS.Connect(Text2.Text, Text3.Text)
Text3.Text = Text3.Text + 1
End Sub

and second how can i do this
when someone connect to my ip on like port 21 or whatever it well give me there ip??