While i < 300
 
 
 
            'read the bytes
            bytes = 0
 
            bytes = Stream.Read(data, 0, data.Length)
 
            current_speed = BitConverter.ToInt32(data, 0)
 
 
            Threading.Thread.Sleep(10)
 
            TextBox2.Text = i
           TextBox3.Text = current_speed 
 
 
            i = i + 1
 
        End While