Local IP and HOST VB6 Script

Private Sub Command1_Click()
'gets local ip  and displays it in the text control
Text1.Text = Winsock1.LocalIP
'gets  local host name  and  displays it in the  text  control
Text2.Text = Winsock1.LocalHostName
End Sub