Private Sub Command1_Click()
    Dim i
    Set wmi = GetObject("winmgmts:root/CIMV2")
    wql = "select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"
    Set IPConfigSet = wmi.ExecQuery(wql)
    For Each IPConfig In IPConfigSet
       If Not IsNull(IPConfig.IPAddress) Then
          For i = 0 To UBound(IPConfig.IPAddress)
             List1.AddItem IPConfig.IPAddress(i)
          Next
       End If
    Next
End Sub