悠悠我心

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Dim g As New Guid        Button1.Text = g.NewGuid.ToString()    End Sub

Dim sbuff() As Bytedim msg as Stringsbuff = Encoding.GetEncoding("gb2312").GetBytes(msg.ToCharArray)UdpClient.send(sbuff, 0, sbuff.Length)

当前对话框响应keydown事件时，无论按下什么键，都传回的keycode值都是229？？关闭输入法！

Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, _        lpList As Long) As LongPrivate Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal