Public Class Basic_String_Sender Private Sub SerialToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Main_Window.vehicle_serialport.Write(TextBox1.Text & "," & TextBox2.Text & ".") End Sub End Class