Dim strLocalIP As String
Dim winIP As Object
Set winIP = CreateObject("MSWinsock.Winsock")
strLocalIP = winIP.LocalIP '获取本地IP
这种方式，控件注册后引用 不管用啊