小女子是刚刚学的，很多地方有不足的，请各位大侠多多指点

Private Sub Command1_click( )

Udpb.Send Data Txtsend Txet

txtoutput.Text = txtsend Text

txtsend Text=" "

End Sub

Private Sub Command2_click( )

Dim Port As Integer

Port = txtbind.Text

Udpb.RemoteHost = txtRemote.Text

Udpb.Remoteport = txtport.Text

Udpb.Bind port

End Sub

Private Subudpb_DataArrival (Byval bytestotal As long)

Dim strData As string

Udpb.GetData strData

trtouput.text = strData

End sub