SICS Get Data

Public Class Form1
Dim a, A1, A2, A3, A4, A5 As StringDim B1, B2, B3 As Integer  Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs)    Handles Me.KeyDown

If e.Control And e.KeyCode = Keys.Q ThenMessageBox.Show("OK !!!")
End IfEnd Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If B1 = 2 Thena = SerialPort1.ReadExisting
A1 = Microsoft.VisualBasic.Mid(a, 5, 10)
A2 = Microsoft.VisualBasic.Trim(A1)
SendKeys.Send(A2)
B1 = 0
Timer1.Enabled = FalseElseB1 = B1 + 1
End IfEnd Sub  Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

Me.Close()
End Sub  Private Sub AboutToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem1.Click
AboutBox1.Show()

End Sub  Private Sub MenuConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuConnect.Click
Button2.Enabled =
TrueMenuDisconect.Enabled = TrueMenuConnect.Enabled = FalseSerialPort1.Open()
'Me.WindowState = FormWindowState.MinimizedEnd Sub  Private Sub MenuDisconect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDisconect.Click
MenuDisconect.Enabled =
FalseMenuConnect.Enabled = TrueButton2.Enabled = FalseSerialPort1.Close()
'Me.Close()End Sub  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
B1 = 0
SerialPort1.WriteLine(
"SI")
Me.WindowState = FormWindowState.MinimizedTimer1.Enabled =
True
End Sub  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MenuDisconect.Enabled =
FalseMenuConnect.Enabled = TrueButton2.Enabled = FalseEnd Sub  Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub
End
Class