WINSOCK: CONNAÎTRE L' IP DU PC

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyEscape              '  si la touche ESCAPE est actionnée, Ferme l'appli.
            Unload Me
        Case Else                           '  si une autre touche... fait BIP !!
            Beep
    End Select
End Sub

Private Sub Form_Load()

    Me.Label1.Caption = "IP: " & Winsock1.LocalIP

End Sub

Private Sub Timer1_Timer()
    Me.Label1.Caption = "IP: " & Winsock1.LocalIP
    Me.Shape1.Visible = Not Me.Shape1.Visible
    Me.Caption = Me.Label1.Caption
End Sub