vb6 改语句问题

怎么把这个语句在vb6中实现，并且在编辑框中显示出那个IP
@echo off
for /f "tokens=15" %%i in ('ipconfig ^| find /i "ip address"') do set ip=%%i
echo %ip%
pause

'窗体上放一个Text1

Private Declare Function GetIpAddrTable Lib "IPHLPAPI.DLL" (ByRef pIpAddrTable As Byte, ByRef pdwSize As Long, ByVal border As Long) As Long

Private Sub Form_Load()
ReDim ip(79) As Byte
GetIpAddrTable ip(0), 108&, 1&
Text1 = Join(Array(ip(76), ip(77), ip(78), ip(79)), ".")
End Sub

不确定有效，如果不行请告诉我，很感谢

wsh

那个批处理是啥意思？对批处理不熟
For Each In
Next

返回IP地址

可以用API函数

或者用控件
Winsock1.LocalIP

Option Explicit

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long

Const Max_IP = 5

Type IPINFO
dwAddr As Long
dwIndex As Long
dwMask As Long