I assume this is all of it. If not I don't know where to find it.
Code:
PublicClass Form1
Dim getdata AsByte
 
 
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim namearray() AsString
namearray = IO.Ports.SerialPort.GetPortNames
If namearray(0) = ""Then
TextBox1.Text = "none found!"
Else
'ComboBox1.Text = namearray(0)
SerialPort1.PortName = namearray(0)
TextBox1.Text = SerialPort1.PortName
EndIf
 
EndSub
PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i AsInteger
Dim datain AsByte
Dim data(20) AsShort
If getdata = 0 Then
SerialPort1.Open()
getdata = 1
EndIf
'Do While getdata <> 0
SerialPort1.Write("k")
For i = 0 To 17
datain = SerialPort1.ReadByte()
data(i) = datain
Next
gxhb.Text = (data(0) * 256) + data(1)
'gxlb.Text = Hex(data(1))
gyhb.Text = (data(2) * 256) + data(3)
'gylb.Text = Hex(data(3))
gzhb.Text = (data(4) * 256) + data(5)
'gzlb.Text = Hex(data(5))
axhb.Text = (data(6) * 256) + data(7)
'axlb.Text = Hex(data(7))
ayhb.Text = (data(8) * 256) + data(9)
'aylb.Text = Hex(data(9))
azhb.Text = (data(10) * 256) + data(11)
'azlb.Text = Hex(data(11))
cxhb.Text = (data(12) * 256) + data(13)
'cxlb.Text = Hex(data(13))
cyhb.Text = (data(14) * 256) + data(15)
'cylb.Text = Hex(data(15))
czhb.Text = (data(16) * 256) + data(17)
'czlb.Text = (data(17))
'Loop
 
 
EndSub
PrivateSub Panel2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
EndSub
PrivateSub czlb_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles czlb.TextChanged
EndSub
PrivateSub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
getdata = 0
SerialPort1.Close()
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
'Do While 0 < 1
If getdata = 1 Then
TextBox1.Text = "sub ran"
Else
TextBox1.Text = "sub else ran"
EndIf
'Loop
EndSub
EndClass