Caption = "This sample shows how to send and receive datagrams. Please wait while sample forms initialize and load."
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 240
TabIndex = 0
Top = 120
Width = 8055
End
Attribute VB_Name = "UDPPeer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Show
DoEvents
UDPPeerA.Show
UDPPeerB.Show
Label1.Caption = "This sample shows how to send and receive datagrams. Enter text in the textbox of one window and it will show up in the transcript list of the other window."