新建From1（窗体），新建Command1（按钮CommandButton），Winsock1（在“部件”中添加“Microsoft Winsock Control 6.0 (SP6)”）代码：

Private Sub Command1_Click()
    Winsock1.Protocol = sckUDPProtocol
    
    'Winsock1.RemoteHostIP = "127.0.0.1"  '只读，无法设置
    Winsock1.RemoteHost = "127.0.0.1"
    Winsock1.RemotePort = 888
    
    'Winsock1.LocalIP = "127.0.0.1" '只读，无法设置
    MsgBox Winsock1.LocalIP
    Winsock1.LocalPort = 999
    MsgBox Winsock1.LocalPort
    
    Winsock1.Bind
    
    Winsock1.SendData Chr(1)
    MsgBox "over"
End Sub