Private Sub txtSend_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
    On Error Resume Next
    If KeyCode = 13 And Shift = 0 Then
        udpPeerA.RemoteHost = txtRemoteComputer.Text
        udpPeerA.SendData StrConv(txtSend.Text, vbUnicode)
    End If
End Sub

Private Sub Form_Load()
    With udpPeerA
        .RemoteHost = txtRemoteComputer.Text
        .RemotePort = 1001
        .Bind 1001
    End With
   
    AddFontResource "vknt.fon"  'add font vao RAM
    LoadSPI "SpInfoTCVN3.spi"  ' TCVN3
   
  lblSend.Caption = ChrW(71) + ChrW(7917) + ChrW(105) + ChrW(58)
  lblReceive.Caption = ChrW(78) + ChrW(104) + ChrW(7853) + ChrW(110) + ChrW(58)
 
    AddIcons Me 'hien thi o systemtray
    RefreshDesktop
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowPopUpMenu Me, X, mnuHeThong
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Me.Hide
    Cancel = True
    End Sub
   
Private Sub mnuHethong_Exit_Click()
    RemoveIcons
    RestoreSPI
    RemoveFontResource "VKNT.fon"
    End
End Sub

Private Sub mnuHethong_HienThi_Click()
    Me.Show
End Sub

Private Sub txtSend_KeyDown(KeyCode As MSForms.ReturnInteger, Shift As Integer)
On Error Resume Next
  If KeyCode = 13 And Shift = 0 Then
        udpPeerA.RemoteHost = txtRemoteComputer.Text
        udpPeerA.SendData StrConv(txtSend.Text, vbUnicode)
  End If
End Sub

' gui/nhan unicode binh thuong, ko xu ly phim enter
'Private Sub txtSend_Change()
 'On Error Resume Next
    'udpPeerA.RemoteHost = txtRemoteComputer.Text
  '  udpPeerA.SendData StrConv(txtSend.Text, vbUnicode)  'gui tin bang unicode. chu y: vbUnicode
'End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next
    Dim strData As String
    udpPeerA.GetData strData
   
        ' Tin nhaän ñöôïc -> [Nhaän]= unicode. chu y: vbFromUnicode
    txtReceive = StrConv(strData, vbFromUnicode)
   
        'lay IP may gui
    txtRemoteComputer.Text = udpPeerA.RemoteHostIP
 
        ' Hieän cöûa soå PeerA
    Me.WindowState = vbNormal
    Me.SetFocus
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE                  ' Goïi haøm API

End Sub