home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 October / CMCD1004.ISO / Software / Shareware / Programare / gpssdk / GPS.NET Global Positioning SDK 1.4.6.msi / Data1.cab / MainForm.vb2 < prev    next >
Encoding:
Text File  |  2004-08-25  |  116.0 KB  |  2,399 lines

  1. ' **************************************************************************
  2. ' ****
  3. ' ****   GpsReceiver.NET Global Positioning SDK Example 1
  4. ' ****   A demonstration of GpsReceiver.NET's major features.
  5. ' ****
  6. ' ****   For assistance with your GPS device or for troubleshooting:
  7. ' ****
  8. ' ****          http://www.gpsdotnet.com/support
  9. ' ****          support@gpsdotnet.com
  10. ' ****
  11. ' ****   To view known product issues & updates in the Knowledge Base:
  12. ' ****
  13. ' ****          http://www.gpsdotnet.com/kb
  14. ' ****
  15. ' ****   For pricing information & online ordering:
  16. ' ****
  17. ' ****          http://www.gpsdotnet.com/purchase
  18. ' ****
  19. ' ****   This source code is considered public domain and may be re-used
  20. ' ****   in your own applications.
  21. ' ****
  22. ' *************************************************************************
  23. ' ****
  24. ' ****   NOTE: Since GpsReceiver.NET is multi-threaded, the Invoke() method is
  25. ' ****   used frequently to make sure that updates to form controls occur
  26. ' ****   on the form's thread.  This prevents the application from locking.
  27. ' ****   up, especially for Compact Framework apps.  For more information, 
  28. ' ****   refer to the Knowledge Base.  
  29. ' ****
  30. ' *************************************************************************
  31.  
  32. Imports StormSource.Gps
  33.  
  34. Public Class Form1
  35.     Inherits System.Windows.Forms.Form
  36.  
  37. #Region " Windows Form Designer generated code "
  38.  
  39.     Public Sub New()
  40.         MyBase.New()
  41.  
  42.         'This call is required by the Windows Form Designer.
  43.         InitializeComponent()
  44.  
  45.         'Add any initialization after the InitializeComponent() call
  46.     End Sub
  47.  
  48.     'Form overrides dispose to clean up the component list.
  49.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  50.         If disposing Then
  51.             If Not (components Is Nothing) Then
  52.                 components.Dispose()
  53.             End If
  54.         End If
  55.         MyBase.Dispose(disposing)
  56.     End Sub
  57.  
  58.     'Required by the Windows Form Designer
  59.     Private components As System.ComponentModel.IContainer
  60.  
  61.     'NOTE: The following procedure is required by the Windows Form Designer
  62.     'It can be modified using the Windows Form Designer.  
  63.     'Do not modify it using the code editor.
  64.     Friend WithEvents StartButton As System.Windows.Forms.Button
  65.     Friend WithEvents StatusBar As System.Windows.Forms.StatusBar
  66.     Friend WithEvents StopButton As System.Windows.Forms.Button
  67.     Friend WithEvents LocalTimeTimer As System.Timers.Timer
  68.     Friend WithEvents BaudRateLabel As System.Windows.Forms.Label
  69.     Friend WithEvents ComPortLabel As System.Windows.Forms.Label
  70.     Friend WithEvents BaudRateComboBox As StormSource.GPS.Controls.BaudRateComboBox
  71.     Friend WithEvents ComPortComboBox As StormSource.GPS.Controls.ComPortComboBox
  72.     Friend WithEvents RawDataTabPage As System.Windows.Forms.TabPage
  73.     Friend WithEvents ParseButton As System.Windows.Forms.Button
  74.     Friend WithEvents Label1 As System.Windows.Forms.Label
  75.     Friend WithEvents ParsingText As System.Windows.Forms.TextBox
  76.     Friend WithEvents RecognizedSentencesLabel As System.Windows.Forms.Label
  77.     Friend WithEvents UnrecognizedSentencesLabel As System.Windows.Forms.Label
  78.     Friend WithEvents UnrecognizedSentences As System.Windows.Forms.ListBox
  79.     Friend WithEvents RecognizedSentences As System.Windows.Forms.ListBox
  80.     Friend WithEvents PositionTabPage As System.Windows.Forms.TabPage
  81.     Friend WithEvents UtmPosition As System.Windows.Forms.Label
  82.     Friend WithEvents UtmPositionLabel As System.Windows.Forms.Label
  83.     Friend WithEvents FixMethod As System.Windows.Forms.Label
  84.     Friend WithEvents FixMethodLabel As System.Windows.Forms.Label
  85.     Friend WithEvents TrackedSatellites As System.Windows.Forms.Label
  86.     Friend WithEvents TrackedSatellitesLabel As System.Windows.Forms.Label
  87.     Friend WithEvents FixedSatellites As System.Windows.Forms.Label
  88.     Friend WithEvents ActiveSatellitesLabel As System.Windows.Forms.Label
  89.     Friend WithEvents MagneticVariation As System.Windows.Forms.Label
  90.     Friend WithEvents MagneticVariationLabel As System.Windows.Forms.Label
  91.     Friend WithEvents MeanDilutionOfPrecision As System.Windows.Forms.Label
  92.     Friend WithEvents MeanDilutionOfPrecisionLabel As System.Windows.Forms.Label
  93.     Friend WithEvents VerticalDilutionOfPrecision As System.Windows.Forms.Label
  94.     Friend WithEvents VerticalDilutionOfPrecisionLabel As System.Windows.Forms.Label
  95.     Friend WithEvents HorizontalDilutionOfPrecision As System.Windows.Forms.Label
  96.     Friend WithEvents HorizontalDilutionOfPrecisionLabel As System.Windows.Forms.Label
  97.     Friend WithEvents FixQuality As System.Windows.Forms.Label
  98.     Friend WithEvents FixQualityLabel As System.Windows.Forms.Label
  99.     Friend WithEvents FixObtained As System.Windows.Forms.Label
  100.     Friend WithEvents FixObtainedLabel As System.Windows.Forms.Label
  101.     Friend WithEvents FixMode As System.Windows.Forms.Label
  102.     Friend WithEvents FixModeLabel As System.Windows.Forms.Label
  103.     Friend WithEvents LocalTime As System.Windows.Forms.Label
  104.     Friend WithEvents LocalTimeLabel As System.Windows.Forms.Label
  105.     Friend WithEvents Speed As System.Windows.Forms.Label
  106.     Friend WithEvents SpeedLabel As System.Windows.Forms.Label
  107.     Friend WithEvents ActiveSatellites As System.Windows.Forms.Label
  108.     Friend WithEvents FixedSatellitesLabel As System.Windows.Forms.Label
  109.     Friend WithEvents UTCDateTime As System.Windows.Forms.Label
  110.     Friend WithEvents UTCDateTimeLabel As System.Windows.Forms.Label
  111.     Friend WithEvents Direction As System.Windows.Forms.Label
  112.     Friend WithEvents DirectionLabel As System.Windows.Forms.Label
  113.     Friend WithEvents Bearing As System.Windows.Forms.Label
  114.     Friend WithEvents Altitude As System.Windows.Forms.Label
  115.     Friend WithEvents Longitude As System.Windows.Forms.Label
  116.     Friend WithEvents Latitude As System.Windows.Forms.Label
  117.     Friend WithEvents BearingLabel As System.Windows.Forms.Label
  118.     Friend WithEvents LongitudeLabel As System.Windows.Forms.Label
  119.     Friend WithEvents AltitudeLabel As System.Windows.Forms.Label
  120.     Friend WithEvents LatitudeLabel As System.Windows.Forms.Label
  121.     Friend WithEvents SatelliteTabPage As System.Windows.Forms.TabPage
  122.     Friend WithEvents SatelliteViewer As StormSource.GPS.Controls.SatelliteViewer
  123.     Friend WithEvents ShowCompassCheckBox As System.Windows.Forms.CheckBox
  124.     Friend WithEvents ShowPrcCheckBox As System.Windows.Forms.CheckBox
  125.     Friend WithEvents FlickerFreeDemoCheckBox As System.Windows.Forms.CheckBox
  126.     Friend WithEvents SatelliteList As System.Windows.Forms.ListView
  127.     Friend WithEvents SatelliteID As System.Windows.Forms.ColumnHeader
  128.     Friend WithEvents SatelliteElevation As System.Windows.Forms.ColumnHeader
  129.     Friend WithEvents SatelliteAzimuth As System.Windows.Forms.ColumnHeader
  130.     Friend WithEvents SatelliteSignalStrength As System.Windows.Forms.ColumnHeader
  131.     Friend WithEvents DeviceTabPage As System.Windows.Forms.TabPage
  132.     Friend WithEvents SupportedWaypointFeaturesGroupBox As System.Windows.Forms.GroupBox
  133.     Friend WithEvents WaypointDisplayModeComboBox As System.Windows.Forms.ComboBox
  134.     Friend WithEvents WaypointColorComboBox As System.Windows.Forms.ComboBox
  135.     Friend WithEvents WaypointSymbolComboBox As System.Windows.Forms.ComboBox
  136.     Friend WithEvents WaypointIntersectingRoadCheckbox As System.Windows.Forms.CheckBox
  137.     Friend WithEvents WaypointCountryCheckbox As System.Windows.Forms.CheckBox
  138.     Friend WithEvents WaypointDepthCheckbox As System.Windows.Forms.CheckBox
  139.     Friend WithEvents WaypointFacilityNameCheckbox As System.Windows.Forms.CheckBox
  140.     Friend WithEvents WaypointCityCheckbox As System.Windows.Forms.CheckBox
  141.     Friend WithEvents WaypointStateCheckbox As System.Windows.Forms.CheckBox
  142.     Friend WithEvents WaypointAddressCheckbox As System.Windows.Forms.CheckBox
  143.     Friend WithEvents WaypointAltitudeCheckbox As System.Windows.Forms.CheckBox
  144.     Friend WithEvents WaypointDisplayModeCheckbox As System.Windows.Forms.CheckBox
  145.     Friend WithEvents WaypointSymbolCheckbox As System.Windows.Forms.CheckBox
  146.     Friend WithEvents WaypointColorCheckbox As System.Windows.Forms.CheckBox
  147.     Friend WithEvents WaypointCommentCheckbox As System.Windows.Forms.CheckBox
  148.     Friend WithEvents DeviceInformationGroupBox As System.Windows.Forms.GroupBox
  149.     Friend WithEvents SupportsRoutes As System.Windows.Forms.Label
  150.     Friend WithEvents SupportsTracks As System.Windows.Forms.Label
  151.     Friend WithEvents SupportsWaypoints As System.Windows.Forms.Label
  152.     Friend WithEvents SupportsRoutesLabel As System.Windows.Forms.Label
  153.     Friend WithEvents SupportsTracksLabel As System.Windows.Forms.Label
  154.     Friend WithEvents SupportsWaypointsLabel As System.Windows.Forms.Label
  155.     Friend WithEvents BatteryLifeLabel As System.Windows.Forms.Label
  156.     Friend WithEvents BatteryLife As System.Windows.Forms.Label
  157.     Friend WithEvents ProtocolLabel As System.Windows.Forms.Label
  158.     Friend WithEvents Protocol As System.Windows.Forms.Label
  159.     Friend WithEvents SoftwareVersion As System.Windows.Forms.Label
  160.     Friend WithEvents SoftwareVersionLabel As System.Windows.Forms.Label
  161.     Friend WithEvents DeviceName As System.Windows.Forms.Label
  162.     Friend WithEvents ManufacturerLabel As System.Windows.Forms.Label
  163.     Friend WithEvents Manufacturer As System.Windows.Forms.Label
  164.     Friend WithEvents DeviceNameLabel As System.Windows.Forms.Label
  165.     Friend WithEvents PowerOffButton As System.Windows.Forms.Button
  166.     Friend WithEvents ErrorTabPage As System.Windows.Forms.TabPage
  167.     Friend WithEvents GpsExceptionTextBox As System.Windows.Forms.TextBox
  168.     Friend WithEvents Label3 As System.Windows.Forms.Label
  169.     Friend WithEvents ParsingExceptionTextBox As System.Windows.Forms.TextBox
  170.     Friend WithEvents Label2 As System.Windows.Forms.Label
  171.     Friend WithEvents WaypointTabPage As System.Windows.Forms.TabPage
  172.     Friend WithEvents RecommendedSteeringDirection As System.Windows.Forms.Label
  173.     Friend WithEvents RecommendedSteeringDirectionLabel As System.Windows.Forms.Label
  174.     Friend WithEvents CrossTrackError As System.Windows.Forms.Label
  175.     Friend WithEvents Label8 As System.Windows.Forms.Label
  176.     Friend WithEvents DestinationWaypoint As System.Windows.Forms.Label
  177.     Friend WithEvents Label6 As System.Windows.Forms.Label
  178.     Friend WithEvents OriginWaypoint As System.Windows.Forms.Label
  179.     Friend WithEvents OriginWaypointLabel As System.Windows.Forms.Label
  180.     Friend WithEvents WaypointInstructionsLabel As System.Windows.Forms.Label
  181.     Friend WithEvents NewWaypointButton As System.Windows.Forms.Button
  182.     Friend WithEvents EditWaypointButton As System.Windows.Forms.Button
  183.     Friend WithEvents DownloadWaypointButton As System.Windows.Forms.Button
  184.     Friend WithEvents WaypointList As System.Windows.Forms.ListView
  185.     Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
  186.     Friend WithEvents ColumnHeader2 As System.Windows.Forms.ColumnHeader
  187.     Friend WithEvents ColumnHeader3 As System.Windows.Forms.ColumnHeader
  188.     Friend WithEvents ColumnHeader5 As System.Windows.Forms.ColumnHeader
  189.     Friend WithEvents ColumnHeader4 As System.Windows.Forms.ColumnHeader
  190.     Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
  191.     Friend WithEvents FixLikelihoodLabel As System.Windows.Forms.Label
  192.     Friend WithEvents GpsReceiver As StormSource.Gps.Receiver
  193.     Friend WithEvents FixLikelihood As System.Windows.Forms.Label
  194.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  195.         Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  196.         Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  197.         Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  198.         Dim ListViewItem4 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  199.         Dim ListViewItem5 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  200.         Dim ListViewItem6 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  201.         Dim ListViewItem7 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  202.         Dim ListViewItem8 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  203.         Dim ListViewItem9 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  204.         Dim ListViewItem10 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  205.         Dim ListViewItem11 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)))
  206.         Dim ListViewItem12 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1)
  207.         Dim ListViewItem13 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1)
  208.         Dim ListViewItem14 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1)
  209.         Dim ListViewItem15 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"", "", "", ""}, -1)
  210.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
  211.         Me.StartButton = New System.Windows.Forms.Button
  212.         Me.StopButton = New System.Windows.Forms.Button
  213.         Me.StatusBar = New System.Windows.Forms.StatusBar
  214.         Me.LocalTimeTimer = New System.Timers.Timer
  215.         Me.ComPortLabel = New System.Windows.Forms.Label
  216.         Me.BaudRateLabel = New System.Windows.Forms.Label
  217.         Me.BaudRateComboBox = New StormSource.Gps.Controls.BaudRateComboBox
  218.         Me.ComPortComboBox = New StormSource.Gps.Controls.ComPortComboBox
  219.         Me.RawDataTabPage = New System.Windows.Forms.TabPage
  220.         Me.ParseButton = New System.Windows.Forms.Button
  221.         Me.Label1 = New System.Windows.Forms.Label
  222.         Me.ParsingText = New System.Windows.Forms.TextBox
  223.         Me.RecognizedSentencesLabel = New System.Windows.Forms.Label
  224.         Me.UnrecognizedSentencesLabel = New System.Windows.Forms.Label
  225.         Me.UnrecognizedSentences = New System.Windows.Forms.ListBox
  226.         Me.RecognizedSentences = New System.Windows.Forms.ListBox
  227.         Me.PositionTabPage = New System.Windows.Forms.TabPage
  228.         Me.UtmPosition = New System.Windows.Forms.Label
  229.         Me.UtmPositionLabel = New System.Windows.Forms.Label
  230.         Me.FixMethod = New System.Windows.Forms.Label
  231.         Me.FixMethodLabel = New System.Windows.Forms.Label
  232.         Me.TrackedSatellites = New System.Windows.Forms.Label
  233.         Me.TrackedSatellitesLabel = New System.Windows.Forms.Label
  234.         Me.FixedSatellites = New System.Windows.Forms.Label
  235.         Me.ActiveSatellitesLabel = New System.Windows.Forms.Label
  236.         Me.MagneticVariation = New System.Windows.Forms.Label
  237.         Me.MagneticVariationLabel = New System.Windows.Forms.Label
  238.         Me.MeanDilutionOfPrecision = New System.Windows.Forms.Label
  239.         Me.MeanDilutionOfPrecisionLabel = New System.Windows.Forms.Label
  240.         Me.VerticalDilutionOfPrecision = New System.Windows.Forms.Label
  241.         Me.VerticalDilutionOfPrecisionLabel = New System.Windows.Forms.Label
  242.         Me.HorizontalDilutionOfPrecision = New System.Windows.Forms.Label
  243.         Me.HorizontalDilutionOfPrecisionLabel = New System.Windows.Forms.Label
  244.         Me.FixQuality = New System.Windows.Forms.Label
  245.         Me.FixQualityLabel = New System.Windows.Forms.Label
  246.         Me.FixObtained = New System.Windows.Forms.Label
  247.         Me.FixObtainedLabel = New System.Windows.Forms.Label
  248.         Me.FixMode = New System.Windows.Forms.Label
  249.         Me.FixModeLabel = New System.Windows.Forms.Label
  250.         Me.LocalTime = New System.Windows.Forms.Label
  251.         Me.LocalTimeLabel = New System.Windows.Forms.Label
  252.         Me.Speed = New System.Windows.Forms.Label
  253.         Me.SpeedLabel = New System.Windows.Forms.Label
  254.         Me.ActiveSatellites = New System.Windows.Forms.Label
  255.         Me.FixedSatellitesLabel = New System.Windows.Forms.Label
  256.         Me.UTCDateTime = New System.Windows.Forms.Label
  257.         Me.UTCDateTimeLabel = New System.Windows.Forms.Label
  258.         Me.Direction = New System.Windows.Forms.Label
  259.         Me.DirectionLabel = New System.Windows.Forms.Label
  260.         Me.Bearing = New System.Windows.Forms.Label
  261.         Me.Altitude = New System.Windows.Forms.Label
  262.         Me.Longitude = New System.Windows.Forms.Label
  263.         Me.Latitude = New System.Windows.Forms.Label
  264.         Me.BearingLabel = New System.Windows.Forms.Label
  265.         Me.LongitudeLabel = New System.Windows.Forms.Label
  266.         Me.AltitudeLabel = New System.Windows.Forms.Label
  267.         Me.LatitudeLabel = New System.Windows.Forms.Label
  268.         Me.SatelliteTabPage = New System.Windows.Forms.TabPage
  269.         Me.FixLikelihood = New System.Windows.Forms.Label
  270.         Me.FixLikelihoodLabel = New System.Windows.Forms.Label
  271.         Me.SatelliteViewer = New StormSource.Gps.Controls.SatelliteViewer
  272.         Me.ShowCompassCheckBox = New System.Windows.Forms.CheckBox
  273.         Me.ShowPrcCheckBox = New System.Windows.Forms.CheckBox
  274.         Me.FlickerFreeDemoCheckBox = New System.Windows.Forms.CheckBox
  275.         Me.SatelliteList = New System.Windows.Forms.ListView
  276.         Me.SatelliteID = New System.Windows.Forms.ColumnHeader
  277.         Me.SatelliteElevation = New System.Windows.Forms.ColumnHeader
  278.         Me.SatelliteAzimuth = New System.Windows.Forms.ColumnHeader
  279.         Me.SatelliteSignalStrength = New System.Windows.Forms.ColumnHeader
  280.         Me.DeviceTabPage = New System.Windows.Forms.TabPage
  281.         Me.SupportedWaypointFeaturesGroupBox = New System.Windows.Forms.GroupBox
  282.         Me.WaypointDisplayModeComboBox = New System.Windows.Forms.ComboBox
  283.         Me.WaypointColorComboBox = New System.Windows.Forms.ComboBox
  284.         Me.WaypointSymbolComboBox = New System.Windows.Forms.ComboBox
  285.         Me.WaypointIntersectingRoadCheckbox = New System.Windows.Forms.CheckBox
  286.         Me.WaypointCountryCheckbox = New System.Windows.Forms.CheckBox
  287.         Me.WaypointDepthCheckbox = New System.Windows.Forms.CheckBox
  288.         Me.WaypointFacilityNameCheckbox = New System.Windows.Forms.CheckBox
  289.         Me.WaypointCityCheckbox = New System.Windows.Forms.CheckBox
  290.         Me.WaypointStateCheckbox = New System.Windows.Forms.CheckBox
  291.         Me.WaypointAddressCheckbox = New System.Windows.Forms.CheckBox
  292.         Me.WaypointAltitudeCheckbox = New System.Windows.Forms.CheckBox
  293.         Me.WaypointDisplayModeCheckbox = New System.Windows.Forms.CheckBox
  294.         Me.WaypointSymbolCheckbox = New System.Windows.Forms.CheckBox
  295.         Me.WaypointColorCheckbox = New System.Windows.Forms.CheckBox
  296.         Me.WaypointCommentCheckbox = New System.Windows.Forms.CheckBox
  297.         Me.DeviceInformationGroupBox = New System.Windows.Forms.GroupBox
  298.         Me.SupportsRoutes = New System.Windows.Forms.Label
  299.         Me.SupportsTracks = New System.Windows.Forms.Label
  300.         Me.SupportsWaypoints = New System.Windows.Forms.Label
  301.         Me.SupportsRoutesLabel = New System.Windows.Forms.Label
  302.         Me.SupportsTracksLabel = New System.Windows.Forms.Label
  303.         Me.SupportsWaypointsLabel = New System.Windows.Forms.Label
  304.         Me.BatteryLifeLabel = New System.Windows.Forms.Label
  305.         Me.BatteryLife = New System.Windows.Forms.Label
  306.         Me.ProtocolLabel = New System.Windows.Forms.Label
  307.         Me.Protocol = New System.Windows.Forms.Label
  308.         Me.SoftwareVersion = New System.Windows.Forms.Label
  309.         Me.SoftwareVersionLabel = New System.Windows.Forms.Label
  310.         Me.DeviceName = New System.Windows.Forms.Label
  311.         Me.ManufacturerLabel = New System.Windows.Forms.Label
  312.         Me.Manufacturer = New System.Windows.Forms.Label
  313.         Me.DeviceNameLabel = New System.Windows.Forms.Label
  314.         Me.PowerOffButton = New System.Windows.Forms.Button
  315.         Me.ErrorTabPage = New System.Windows.Forms.TabPage
  316.         Me.GpsExceptionTextBox = New System.Windows.Forms.TextBox
  317.         Me.Label3 = New System.Windows.Forms.Label
  318.         Me.ParsingExceptionTextBox = New System.Windows.Forms.TextBox
  319.         Me.Label2 = New System.Windows.Forms.Label
  320.         Me.WaypointTabPage = New System.Windows.Forms.TabPage
  321.         Me.RecommendedSteeringDirection = New System.Windows.Forms.Label
  322.         Me.RecommendedSteeringDirectionLabel = New System.Windows.Forms.Label
  323.         Me.CrossTrackError = New System.Windows.Forms.Label
  324.         Me.Label8 = New System.Windows.Forms.Label
  325.         Me.DestinationWaypoint = New System.Windows.Forms.Label
  326.         Me.Label6 = New System.Windows.Forms.Label
  327.         Me.OriginWaypoint = New System.Windows.Forms.Label
  328.         Me.OriginWaypointLabel = New System.Windows.Forms.Label
  329.         Me.WaypointInstructionsLabel = New System.Windows.Forms.Label
  330.         Me.NewWaypointButton = New System.Windows.Forms.Button
  331.         Me.EditWaypointButton = New System.Windows.Forms.Button
  332.         Me.DownloadWaypointButton = New System.Windows.Forms.Button
  333.         Me.WaypointList = New System.Windows.Forms.ListView
  334.         Me.ColumnHeader1 = New System.Windows.Forms.ColumnHeader
  335.         Me.ColumnHeader2 = New System.Windows.Forms.ColumnHeader
  336.         Me.ColumnHeader3 = New System.Windows.Forms.ColumnHeader
  337.         Me.ColumnHeader5 = New System.Windows.Forms.ColumnHeader
  338.         Me.ColumnHeader4 = New System.Windows.Forms.ColumnHeader
  339.         Me.TabControl1 = New System.Windows.Forms.TabControl
  340.         Me.GpsReceiver = New StormSource.Gps.Receiver
  341.         CType(Me.LocalTimeTimer, System.ComponentModel.ISupportInitialize).BeginInit()
  342.         Me.RawDataTabPage.SuspendLayout()
  343.         Me.PositionTabPage.SuspendLayout()
  344.         Me.SatelliteTabPage.SuspendLayout()
  345.         Me.DeviceTabPage.SuspendLayout()
  346.         Me.SupportedWaypointFeaturesGroupBox.SuspendLayout()
  347.         Me.DeviceInformationGroupBox.SuspendLayout()
  348.         Me.ErrorTabPage.SuspendLayout()
  349.         Me.WaypointTabPage.SuspendLayout()
  350.         Me.TabControl1.SuspendLayout()
  351.         Me.SuspendLayout()
  352.         '
  353.         'StartButton
  354.         '
  355.         Me.StartButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  356.         Me.StartButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  357.         Me.StartButton.Location = New System.Drawing.Point(423, 105)
  358.         Me.StartButton.Name = "StartButton"
  359.         Me.StartButton.Size = New System.Drawing.Size(72, 24)
  360.         Me.StartButton.TabIndex = 0
  361.         Me.StartButton.Text = "Start"
  362.         '
  363.         'StopButton
  364.         '
  365.         Me.StopButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  366.         Me.StopButton.Enabled = False
  367.         Me.StopButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  368.         Me.StopButton.Location = New System.Drawing.Point(423, 135)
  369.         Me.StopButton.Name = "StopButton"
  370.         Me.StopButton.Size = New System.Drawing.Size(72, 24)
  371.         Me.StopButton.TabIndex = 1
  372.         Me.StopButton.Text = "Stop"
  373.         '
  374.         'StatusBar
  375.         '
  376.         Me.StatusBar.Location = New System.Drawing.Point(0, 527)
  377.         Me.StatusBar.Name = "StatusBar"
  378.         Me.StatusBar.Size = New System.Drawing.Size(508, 18)
  379.         Me.StatusBar.TabIndex = 3
  380.         Me.StatusBar.Text = "Ready"
  381.         '
  382.         'LocalTimeTimer
  383.         '
  384.         Me.LocalTimeTimer.Enabled = True
  385.         Me.LocalTimeTimer.Interval = 250
  386.         Me.LocalTimeTimer.SynchronizingObject = Me
  387.         '
  388.         'ComPortLabel
  389.         '
  390.         Me.ComPortLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  391.         Me.ComPortLabel.Location = New System.Drawing.Point(423, 57)
  392.         Me.ComPortLabel.Name = "ComPortLabel"
  393.         Me.ComPortLabel.Size = New System.Drawing.Size(69, 15)
  394.         Me.ComPortLabel.TabIndex = 6
  395.         Me.ComPortLabel.Text = "COM Port:"
  396.         '
  397.         'BaudRateLabel
  398.         '
  399.         Me.BaudRateLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  400.         Me.BaudRateLabel.Location = New System.Drawing.Point(423, 9)
  401.         Me.BaudRateLabel.Name = "BaudRateLabel"
  402.         Me.BaudRateLabel.Size = New System.Drawing.Size(69, 15)
  403.         Me.BaudRateLabel.TabIndex = 7
  404.         Me.BaudRateLabel.Text = "Baud Rate:"
  405.         '
  406.         'BaudRateComboBox
  407.         '
  408.         Me.BaudRateComboBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  409.         Me.BaudRateComboBox.Items.AddRange(New Object() {"Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic"})
  410.         Me.BaudRateComboBox.Location = New System.Drawing.Point(423, 27)
  411.         Me.BaudRateComboBox.Name = "BaudRateComboBox"
  412.         Me.BaudRateComboBox.TabIndex = 8
  413.         '
  414.         'ComPortComboBox
  415.         '
  416.         Me.ComPortComboBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  417.         Me.ComPortComboBox.Items.AddRange(New Object() {"Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic", "Automatic"})
  418.         Me.ComPortComboBox.Location = New System.Drawing.Point(423, 75)
  419.         Me.ComPortComboBox.Name = "ComPortComboBox"
  420.         Me.ComPortComboBox.TabIndex = 9
  421.         '
  422.         'RawDataTabPage
  423.         '
  424.         Me.RawDataTabPage.Controls.Add(Me.ParseButton)
  425.         Me.RawDataTabPage.Controls.Add(Me.Label1)
  426.         Me.RawDataTabPage.Controls.Add(Me.ParsingText)
  427.         Me.RawDataTabPage.Controls.Add(Me.RecognizedSentencesLabel)
  428.         Me.RawDataTabPage.Controls.Add(Me.UnrecognizedSentencesLabel)
  429.         Me.RawDataTabPage.Controls.Add(Me.UnrecognizedSentences)
  430.         Me.RawDataTabPage.Controls.Add(Me.RecognizedSentences)
  431.         Me.RawDataTabPage.Location = New System.Drawing.Point(4, 22)
  432.         Me.RawDataTabPage.Name = "RawDataTabPage"
  433.         Me.RawDataTabPage.Size = New System.Drawing.Size(397, 487)
  434.         Me.RawDataTabPage.TabIndex = 2
  435.         Me.RawDataTabPage.Text = "Raw Data"
  436.         '
  437.         'ParseButton
  438.         '
  439.         Me.ParseButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  440.         Me.ParseButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  441.         Me.ParseButton.Location = New System.Drawing.Point(318, 303)
  442.         Me.ParseButton.Name = "ParseButton"
  443.         Me.ParseButton.Size = New System.Drawing.Size(72, 24)
  444.         Me.ParseButton.TabIndex = 11
  445.         Me.ParseButton.Text = "Parse"
  446.         '
  447.         'Label1
  448.         '
  449.         Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
  450.         Me.Label1.AutoSize = True
  451.         Me.Label1.BackColor = System.Drawing.Color.Transparent
  452.         Me.Label1.Location = New System.Drawing.Point(9, 285)
  453.         Me.Label1.Name = "Label1"
  454.         Me.Label1.Size = New System.Drawing.Size(85, 16)
  455.         Me.Label1.TabIndex = 10
  456.         Me.Label1.Text = "Manual parsing:"
  457.         '
  458.         'ParsingText
  459.         '
  460.         Me.ParsingText.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
  461.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  462.         Me.ParsingText.Location = New System.Drawing.Point(6, 303)
  463.         Me.ParsingText.Multiline = True
  464.         Me.ParsingText.Name = "ParsingText"
  465.         Me.ParsingText.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
  466.         Me.ParsingText.Size = New System.Drawing.Size(306, 87)
  467.         Me.ParsingText.TabIndex = 9
  468.         Me.ParsingText.Text = "(Enter data to parse here then click the Parse button)"
  469.         '
  470.         'RecognizedSentencesLabel
  471.         '
  472.         Me.RecognizedSentencesLabel.AllowDrop = True
  473.         Me.RecognizedSentencesLabel.BackColor = System.Drawing.Color.Transparent
  474.         Me.RecognizedSentencesLabel.Location = New System.Drawing.Point(6, 6)
  475.         Me.RecognizedSentencesLabel.Name = "RecognizedSentencesLabel"
  476.         Me.RecognizedSentencesLabel.Size = New System.Drawing.Size(141, 15)
  477.         Me.RecognizedSentencesLabel.TabIndex = 8
  478.         Me.RecognizedSentencesLabel.Text = "All Recognized Sentences:"
  479.         '
  480.         'UnrecognizedSentencesLabel
  481.         '
  482.         Me.UnrecognizedSentencesLabel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
  483.         Me.UnrecognizedSentencesLabel.AutoSize = True
  484.         Me.UnrecognizedSentencesLabel.BackColor = System.Drawing.Color.Transparent
  485.         Me.UnrecognizedSentencesLabel.Location = New System.Drawing.Point(6, 396)
  486.         Me.UnrecognizedSentencesLabel.Name = "UnrecognizedSentencesLabel"
  487.         Me.UnrecognizedSentencesLabel.Size = New System.Drawing.Size(134, 16)
  488.         Me.UnrecognizedSentencesLabel.TabIndex = 7
  489.         Me.UnrecognizedSentencesLabel.Text = "Unrecognized Sentences:"
  490.         '
  491.         'UnrecognizedSentences
  492.         '
  493.         Me.UnrecognizedSentences.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
  494.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  495.         Me.UnrecognizedSentences.IntegralHeight = False
  496.         Me.UnrecognizedSentences.Location = New System.Drawing.Point(6, 414)
  497.         Me.UnrecognizedSentences.Name = "UnrecognizedSentences"
  498.         Me.UnrecognizedSentences.ScrollAlwaysVisible = True
  499.         Me.UnrecognizedSentences.Size = New System.Drawing.Size(384, 66)
  500.         Me.UnrecognizedSentences.TabIndex = 6
  501.         '
  502.         'RecognizedSentences
  503.         '
  504.         Me.RecognizedSentences.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  505.                     Or System.Windows.Forms.AnchorStyles.Left) _
  506.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  507.         Me.RecognizedSentences.IntegralHeight = False
  508.         Me.RecognizedSentences.Location = New System.Drawing.Point(6, 24)
  509.         Me.RecognizedSentences.Name = "RecognizedSentences"
  510.         Me.RecognizedSentences.ScrollAlwaysVisible = True
  511.         Me.RecognizedSentences.Size = New System.Drawing.Size(384, 255)
  512.         Me.RecognizedSentences.TabIndex = 4
  513.         '
  514.         'PositionTabPage
  515.         '
  516.         Me.PositionTabPage.Controls.Add(Me.UtmPosition)
  517.         Me.PositionTabPage.Controls.Add(Me.UtmPositionLabel)
  518.         Me.PositionTabPage.Controls.Add(Me.FixMethod)
  519.         Me.PositionTabPage.Controls.Add(Me.FixMethodLabel)
  520.         Me.PositionTabPage.Controls.Add(Me.TrackedSatellites)
  521.         Me.PositionTabPage.Controls.Add(Me.TrackedSatellitesLabel)
  522.         Me.PositionTabPage.Controls.Add(Me.FixedSatellites)
  523.         Me.PositionTabPage.Controls.Add(Me.ActiveSatellitesLabel)
  524.         Me.PositionTabPage.Controls.Add(Me.MagneticVariation)
  525.         Me.PositionTabPage.Controls.Add(Me.MagneticVariationLabel)
  526.         Me.PositionTabPage.Controls.Add(Me.MeanDilutionOfPrecision)
  527.         Me.PositionTabPage.Controls.Add(Me.MeanDilutionOfPrecisionLabel)
  528.         Me.PositionTabPage.Controls.Add(Me.VerticalDilutionOfPrecision)
  529.         Me.PositionTabPage.Controls.Add(Me.VerticalDilutionOfPrecisionLabel)
  530.         Me.PositionTabPage.Controls.Add(Me.HorizontalDilutionOfPrecision)
  531.         Me.PositionTabPage.Controls.Add(Me.HorizontalDilutionOfPrecisionLabel)
  532.         Me.PositionTabPage.Controls.Add(Me.FixQuality)
  533.         Me.PositionTabPage.Controls.Add(Me.FixQualityLabel)
  534.         Me.PositionTabPage.Controls.Add(Me.FixObtained)
  535.         Me.PositionTabPage.Controls.Add(Me.FixObtainedLabel)
  536.         Me.PositionTabPage.Controls.Add(Me.FixMode)
  537.         Me.PositionTabPage.Controls.Add(Me.FixModeLabel)
  538.         Me.PositionTabPage.Controls.Add(Me.LocalTime)
  539.         Me.PositionTabPage.Controls.Add(Me.LocalTimeLabel)
  540.         Me.PositionTabPage.Controls.Add(Me.Speed)
  541.         Me.PositionTabPage.Controls.Add(Me.SpeedLabel)
  542.         Me.PositionTabPage.Controls.Add(Me.ActiveSatellites)
  543.         Me.PositionTabPage.Controls.Add(Me.FixedSatellitesLabel)
  544.         Me.PositionTabPage.Controls.Add(Me.UTCDateTime)
  545.         Me.PositionTabPage.Controls.Add(Me.UTCDateTimeLabel)
  546.         Me.PositionTabPage.Controls.Add(Me.Direction)
  547.         Me.PositionTabPage.Controls.Add(Me.DirectionLabel)
  548.         Me.PositionTabPage.Controls.Add(Me.Bearing)
  549.         Me.PositionTabPage.Controls.Add(Me.Altitude)
  550.         Me.PositionTabPage.Controls.Add(Me.Longitude)
  551.         Me.PositionTabPage.Controls.Add(Me.Latitude)
  552.         Me.PositionTabPage.Controls.Add(Me.BearingLabel)
  553.         Me.PositionTabPage.Controls.Add(Me.LongitudeLabel)
  554.         Me.PositionTabPage.Controls.Add(Me.AltitudeLabel)
  555.         Me.PositionTabPage.Controls.Add(Me.LatitudeLabel)
  556.         Me.PositionTabPage.Location = New System.Drawing.Point(4, 22)
  557.         Me.PositionTabPage.Name = "PositionTabPage"
  558.         Me.PositionTabPage.Size = New System.Drawing.Size(397, 487)
  559.         Me.PositionTabPage.TabIndex = 0
  560.         Me.PositionTabPage.Text = "Position"
  561.         '
  562.         'UtmPosition
  563.         '
  564.         Me.UtmPosition.BackColor = System.Drawing.Color.Transparent
  565.         Me.UtmPosition.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  566.         Me.UtmPosition.Location = New System.Drawing.Point(102, 207)
  567.         Me.UtmPosition.Name = "UtmPosition"
  568.         Me.UtmPosition.Size = New System.Drawing.Size(249, 18)
  569.         Me.UtmPosition.TabIndex = 41
  570.         Me.UtmPosition.Text = "(Unknown)"
  571.         '
  572.         'UtmPositionLabel
  573.         '
  574.         Me.UtmPositionLabel.BackColor = System.Drawing.Color.Transparent
  575.         Me.UtmPositionLabel.Location = New System.Drawing.Point(9, 207)
  576.         Me.UtmPositionLabel.Name = "UtmPositionLabel"
  577.         Me.UtmPositionLabel.Size = New System.Drawing.Size(87, 18)
  578.         Me.UtmPositionLabel.TabIndex = 40
  579.         Me.UtmPositionLabel.Text = "UTM Position:"
  580.         '
  581.         'FixMethod
  582.         '
  583.         Me.FixMethod.BackColor = System.Drawing.Color.Transparent
  584.         Me.FixMethod.Location = New System.Drawing.Point(102, 117)
  585.         Me.FixMethod.Name = "FixMethod"
  586.         Me.FixMethod.Size = New System.Drawing.Size(249, 18)
  587.         Me.FixMethod.TabIndex = 39
  588.         Me.FixMethod.Text = "(Unknown)"
  589.         '
  590.         'FixMethodLabel
  591.         '
  592.         Me.FixMethodLabel.BackColor = System.Drawing.Color.Transparent
  593.         Me.FixMethodLabel.Location = New System.Drawing.Point(9, 117)
  594.         Me.FixMethodLabel.Name = "FixMethodLabel"
  595.         Me.FixMethodLabel.Size = New System.Drawing.Size(87, 18)
  596.         Me.FixMethodLabel.TabIndex = 38
  597.         Me.FixMethodLabel.Text = "Fix Method:"
  598.         '
  599.         'TrackedSatellites
  600.         '
  601.         Me.TrackedSatellites.BackColor = System.Drawing.Color.Transparent
  602.         Me.TrackedSatellites.Location = New System.Drawing.Point(102, 45)
  603.         Me.TrackedSatellites.Name = "TrackedSatellites"
  604.         Me.TrackedSatellites.Size = New System.Drawing.Size(249, 18)
  605.         Me.TrackedSatellites.TabIndex = 37
  606.         Me.TrackedSatellites.Text = "(Unknown)"
  607.         '
  608.         'TrackedSatellitesLabel
  609.         '
  610.         Me.TrackedSatellitesLabel.BackColor = System.Drawing.Color.Transparent
  611.         Me.TrackedSatellitesLabel.Location = New System.Drawing.Point(9, 45)
  612.         Me.TrackedSatellitesLabel.Name = "TrackedSatellitesLabel"
  613.         Me.TrackedSatellitesLabel.Size = New System.Drawing.Size(87, 18)
  614.         Me.TrackedSatellitesLabel.TabIndex = 36
  615.         Me.TrackedSatellitesLabel.Text = "Tracked Sat.:"
  616.         '
  617.         'FixedSatellites
  618.         '
  619.         Me.FixedSatellites.BackColor = System.Drawing.Color.Transparent
  620.         Me.FixedSatellites.Location = New System.Drawing.Point(102, 27)
  621.         Me.FixedSatellites.Name = "FixedSatellites"
  622.         Me.FixedSatellites.Size = New System.Drawing.Size(249, 18)
  623.         Me.FixedSatellites.TabIndex = 35
  624.         Me.FixedSatellites.Text = "(Unknown)"
  625.         '
  626.         'ActiveSatellitesLabel
  627.         '
  628.         Me.ActiveSatellitesLabel.BackColor = System.Drawing.Color.Transparent
  629.         Me.ActiveSatellitesLabel.Location = New System.Drawing.Point(9, 9)
  630.         Me.ActiveSatellitesLabel.Name = "ActiveSatellitesLabel"
  631.         Me.ActiveSatellitesLabel.Size = New System.Drawing.Size(87, 18)
  632.         Me.ActiveSatellitesLabel.TabIndex = 34
  633.         Me.ActiveSatellitesLabel.Text = "Active Satellites:"
  634.         '
  635.         'MagneticVariation
  636.         '
  637.         Me.MagneticVariation.BackColor = System.Drawing.Color.Transparent
  638.         Me.MagneticVariation.Font = New System.Drawing.Font("Courier New", 8.25!)
  639.         Me.MagneticVariation.Location = New System.Drawing.Point(102, 351)
  640.         Me.MagneticVariation.Name = "MagneticVariation"
  641.         Me.MagneticVariation.Size = New System.Drawing.Size(249, 18)
  642.         Me.MagneticVariation.TabIndex = 33
  643.         Me.MagneticVariation.Text = "(Unknown)"
  644.         '
  645.         'MagneticVariationLabel
  646.         '
  647.         Me.MagneticVariationLabel.BackColor = System.Drawing.Color.Transparent
  648.         Me.MagneticVariationLabel.Location = New System.Drawing.Point(9, 351)
  649.         Me.MagneticVariationLabel.Name = "MagneticVariationLabel"
  650.         Me.MagneticVariationLabel.Size = New System.Drawing.Size(87, 18)
  651.         Me.MagneticVariationLabel.TabIndex = 32
  652.         Me.MagneticVariationLabel.Text = "Magnetic Var.:"
  653.         '
  654.         'MeanDilutionOfPrecision
  655.         '
  656.         Me.MeanDilutionOfPrecision.BackColor = System.Drawing.Color.Transparent
  657.         Me.MeanDilutionOfPrecision.Location = New System.Drawing.Point(102, 297)
  658.         Me.MeanDilutionOfPrecision.Name = "MeanDilutionOfPrecision"
  659.         Me.MeanDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
  660.         Me.MeanDilutionOfPrecision.TabIndex = 31
  661.         Me.MeanDilutionOfPrecision.Text = "(Unknown)"
  662.         '
  663.         'MeanDilutionOfPrecisionLabel
  664.         '
  665.         Me.MeanDilutionOfPrecisionLabel.BackColor = System.Drawing.Color.Transparent
  666.         Me.MeanDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 297)
  667.         Me.MeanDilutionOfPrecisionLabel.Name = "MeanDilutionOfPrecisionLabel"
  668.         Me.MeanDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
  669.         Me.MeanDilutionOfPrecisionLabel.TabIndex = 30
  670.         Me.MeanDilutionOfPrecisionLabel.Text = "PDOP:"
  671.         '
  672.         'VerticalDilutionOfPrecision
  673.         '
  674.         Me.VerticalDilutionOfPrecision.BackColor = System.Drawing.Color.Transparent
  675.         Me.VerticalDilutionOfPrecision.Location = New System.Drawing.Point(102, 333)
  676.         Me.VerticalDilutionOfPrecision.Name = "VerticalDilutionOfPrecision"
  677.         Me.VerticalDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
  678.         Me.VerticalDilutionOfPrecision.TabIndex = 29
  679.         Me.VerticalDilutionOfPrecision.Text = "(Unknown)"
  680.         '
  681.         'VerticalDilutionOfPrecisionLabel
  682.         '
  683.         Me.VerticalDilutionOfPrecisionLabel.BackColor = System.Drawing.Color.Transparent
  684.         Me.VerticalDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 333)
  685.         Me.VerticalDilutionOfPrecisionLabel.Name = "VerticalDilutionOfPrecisionLabel"
  686.         Me.VerticalDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
  687.         Me.VerticalDilutionOfPrecisionLabel.TabIndex = 28
  688.         Me.VerticalDilutionOfPrecisionLabel.Text = "VDOP:"
  689.         '
  690.         'HorizontalDilutionOfPrecision
  691.         '
  692.         Me.HorizontalDilutionOfPrecision.BackColor = System.Drawing.Color.Transparent
  693.         Me.HorizontalDilutionOfPrecision.Location = New System.Drawing.Point(102, 315)
  694.         Me.HorizontalDilutionOfPrecision.Name = "HorizontalDilutionOfPrecision"
  695.         Me.HorizontalDilutionOfPrecision.Size = New System.Drawing.Size(249, 18)
  696.         Me.HorizontalDilutionOfPrecision.TabIndex = 27
  697.         Me.HorizontalDilutionOfPrecision.Text = "(Unknown)"
  698.         '
  699.         'HorizontalDilutionOfPrecisionLabel
  700.         '
  701.         Me.HorizontalDilutionOfPrecisionLabel.BackColor = System.Drawing.Color.Transparent
  702.         Me.HorizontalDilutionOfPrecisionLabel.Location = New System.Drawing.Point(9, 315)
  703.         Me.HorizontalDilutionOfPrecisionLabel.Name = "HorizontalDilutionOfPrecisionLabel"
  704.         Me.HorizontalDilutionOfPrecisionLabel.Size = New System.Drawing.Size(87, 18)
  705.         Me.HorizontalDilutionOfPrecisionLabel.TabIndex = 26
  706.         Me.HorizontalDilutionOfPrecisionLabel.Text = "HDOP:"
  707.         '
  708.         'FixQuality
  709.         '
  710.         Me.FixQuality.BackColor = System.Drawing.Color.Transparent
  711.         Me.FixQuality.Location = New System.Drawing.Point(102, 135)
  712.         Me.FixQuality.Name = "FixQuality"
  713.         Me.FixQuality.Size = New System.Drawing.Size(249, 18)
  714.         Me.FixQuality.TabIndex = 25
  715.         Me.FixQuality.Text = "(Unknown)"
  716.         '
  717.         'FixQualityLabel
  718.         '
  719.         Me.FixQualityLabel.BackColor = System.Drawing.Color.Transparent
  720.         Me.FixQualityLabel.Location = New System.Drawing.Point(9, 135)
  721.         Me.FixQualityLabel.Name = "FixQualityLabel"
  722.         Me.FixQualityLabel.Size = New System.Drawing.Size(87, 18)
  723.         Me.FixQualityLabel.TabIndex = 24
  724.         Me.FixQualityLabel.Text = "Fix Quality:"
  725.         '
  726.         'FixObtained
  727.         '
  728.         Me.FixObtained.BackColor = System.Drawing.Color.Transparent
  729.         Me.FixObtained.Location = New System.Drawing.Point(102, 153)
  730.         Me.FixObtained.Name = "FixObtained"
  731.         Me.FixObtained.Size = New System.Drawing.Size(249, 18)
  732.         Me.FixObtained.TabIndex = 21
  733.         Me.FixObtained.Text = "(Unknown)"
  734.         '
  735.         'FixObtainedLabel
  736.         '
  737.         Me.FixObtainedLabel.BackColor = System.Drawing.Color.Transparent
  738.         Me.FixObtainedLabel.Location = New System.Drawing.Point(9, 153)
  739.         Me.FixObtainedLabel.Name = "FixObtainedLabel"
  740.         Me.FixObtainedLabel.Size = New System.Drawing.Size(87, 18)
  741.         Me.FixObtainedLabel.TabIndex = 20
  742.         Me.FixObtainedLabel.Text = "Fix Obtained:"
  743.         '
  744.         'FixMode
  745.         '
  746.         Me.FixMode.BackColor = System.Drawing.Color.Transparent
  747.         Me.FixMode.Location = New System.Drawing.Point(102, 99)
  748.         Me.FixMode.Name = "FixMode"
  749.         Me.FixMode.Size = New System.Drawing.Size(249, 18)
  750.         Me.FixMode.TabIndex = 19
  751.         Me.FixMode.Text = "(Unknown)"
  752.         '
  753.         'FixModeLabel
  754.         '
  755.         Me.FixModeLabel.BackColor = System.Drawing.Color.Transparent
  756.         Me.FixModeLabel.Location = New System.Drawing.Point(9, 99)
  757.         Me.FixModeLabel.Name = "FixModeLabel"
  758.         Me.FixModeLabel.Size = New System.Drawing.Size(87, 18)
  759.         Me.FixModeLabel.TabIndex = 18
  760.         Me.FixModeLabel.Text = "Fix Mode:"
  761.         '
  762.         'LocalTime
  763.         '
  764.         Me.LocalTime.BackColor = System.Drawing.Color.Transparent
  765.         Me.LocalTime.Location = New System.Drawing.Point(102, 81)
  766.         Me.LocalTime.Name = "LocalTime"
  767.         Me.LocalTime.Size = New System.Drawing.Size(249, 18)
  768.         Me.LocalTime.TabIndex = 17
  769.         Me.LocalTime.Text = "(Unknown)"
  770.         '
  771.         'LocalTimeLabel
  772.         '
  773.         Me.LocalTimeLabel.BackColor = System.Drawing.Color.Transparent
  774.         Me.LocalTimeLabel.Location = New System.Drawing.Point(9, 81)
  775.         Me.LocalTimeLabel.Name = "LocalTimeLabel"
  776.         Me.LocalTimeLabel.Size = New System.Drawing.Size(87, 18)
  777.         Me.LocalTimeLabel.TabIndex = 16
  778.         Me.LocalTimeLabel.Text = "Local Time:"
  779.         '
  780.         'Speed
  781.         '
  782.         Me.Speed.BackColor = System.Drawing.Color.Transparent
  783.         Me.Speed.Location = New System.Drawing.Point(102, 243)
  784.         Me.Speed.Name = "Speed"
  785.         Me.Speed.Size = New System.Drawing.Size(249, 18)
  786.         Me.Speed.TabIndex = 15
  787.         Me.Speed.Text = "(Unknown)"
  788.         '
  789.         'SpeedLabel
  790.         '
  791.         Me.SpeedLabel.BackColor = System.Drawing.Color.Transparent
  792.         Me.SpeedLabel.Location = New System.Drawing.Point(9, 243)
  793.         Me.SpeedLabel.Name = "SpeedLabel"
  794.         Me.SpeedLabel.Size = New System.Drawing.Size(87, 18)
  795.         Me.SpeedLabel.TabIndex = 14
  796.         Me.SpeedLabel.Text = "Speed:"
  797.         '
  798.         'ActiveSatellites
  799.         '
  800.         Me.ActiveSatellites.BackColor = System.Drawing.Color.Transparent
  801.         Me.ActiveSatellites.Location = New System.Drawing.Point(102, 9)
  802.         Me.ActiveSatellites.Name = "ActiveSatellites"
  803.         Me.ActiveSatellites.Size = New System.Drawing.Size(249, 18)
  804.         Me.ActiveSatellites.TabIndex = 13
  805.         Me.ActiveSatellites.Text = "(Unknown)"
  806.         '
  807.         'FixedSatellitesLabel
  808.         '
  809.         Me.FixedSatellitesLabel.BackColor = System.Drawing.Color.Transparent
  810.         Me.FixedSatellitesLabel.Location = New System.Drawing.Point(9, 27)
  811.         Me.FixedSatellitesLabel.Name = "FixedSatellitesLabel"
  812.         Me.FixedSatellitesLabel.Size = New System.Drawing.Size(87, 18)
  813.         Me.FixedSatellitesLabel.TabIndex = 12
  814.         Me.FixedSatellitesLabel.Text = "Fixed Satellites:"
  815.         '
  816.         'UTCDateTime
  817.         '
  818.         Me.UTCDateTime.BackColor = System.Drawing.Color.Transparent
  819.         Me.UTCDateTime.Location = New System.Drawing.Point(102, 63)
  820.         Me.UTCDateTime.Name = "UTCDateTime"
  821.         Me.UTCDateTime.Size = New System.Drawing.Size(249, 18)
  822.         Me.UTCDateTime.TabIndex = 11
  823.         Me.UTCDateTime.Text = "(Unknown)"
  824.         '
  825.         'UTCDateTimeLabel
  826.         '
  827.         Me.UTCDateTimeLabel.BackColor = System.Drawing.Color.Transparent
  828.         Me.UTCDateTimeLabel.Location = New System.Drawing.Point(9, 63)
  829.         Me.UTCDateTimeLabel.Name = "UTCDateTimeLabel"
  830.         Me.UTCDateTimeLabel.Size = New System.Drawing.Size(87, 18)
  831.         Me.UTCDateTimeLabel.TabIndex = 10
  832.         Me.UTCDateTimeLabel.Text = "GPS Time:"
  833.         '
  834.         'Direction
  835.         '
  836.         Me.Direction.BackColor = System.Drawing.Color.Transparent
  837.         Me.Direction.Location = New System.Drawing.Point(102, 279)
  838.         Me.Direction.Name = "Direction"
  839.         Me.Direction.Size = New System.Drawing.Size(249, 18)
  840.         Me.Direction.TabIndex = 9
  841.         Me.Direction.Text = "(Unknown)"
  842.         '
  843.         'DirectionLabel
  844.         '
  845.         Me.DirectionLabel.BackColor = System.Drawing.Color.Transparent
  846.         Me.DirectionLabel.Location = New System.Drawing.Point(9, 279)
  847.         Me.DirectionLabel.Name = "DirectionLabel"
  848.         Me.DirectionLabel.Size = New System.Drawing.Size(87, 18)
  849.         Me.DirectionLabel.TabIndex = 8
  850.         Me.DirectionLabel.Text = "Direction:"
  851.         '
  852.         'Bearing
  853.         '
  854.         Me.Bearing.BackColor = System.Drawing.Color.Transparent
  855.         Me.Bearing.Location = New System.Drawing.Point(102, 261)
  856.         Me.Bearing.Name = "Bearing"
  857.         Me.Bearing.Size = New System.Drawing.Size(249, 18)
  858.         Me.Bearing.TabIndex = 7
  859.         Me.Bearing.Text = "(Unknown)"
  860.         '
  861.         'Altitude
  862.         '
  863.         Me.Altitude.BackColor = System.Drawing.Color.Transparent
  864.         Me.Altitude.Location = New System.Drawing.Point(102, 225)
  865.         Me.Altitude.Name = "Altitude"
  866.         Me.Altitude.Size = New System.Drawing.Size(249, 18)
  867.         Me.Altitude.TabIndex = 6
  868.         Me.Altitude.Text = "(Unknown)"
  869.         '
  870.         'Longitude
  871.         '
  872.         Me.Longitude.BackColor = System.Drawing.Color.Transparent
  873.         Me.Longitude.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  874.         Me.Longitude.Location = New System.Drawing.Point(102, 189)
  875.         Me.Longitude.Name = "Longitude"
  876.         Me.Longitude.Size = New System.Drawing.Size(249, 18)
  877.         Me.Longitude.TabIndex = 5
  878.         Me.Longitude.Text = "(Unknown)"
  879.         '
  880.         'Latitude
  881.         '
  882.         Me.Latitude.BackColor = System.Drawing.Color.Transparent
  883.         Me.Latitude.Font = New System.Drawing.Font("Courier New", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  884.         Me.Latitude.Location = New System.Drawing.Point(102, 171)
  885.         Me.Latitude.Name = "Latitude"
  886.         Me.Latitude.Size = New System.Drawing.Size(249, 18)
  887.         Me.Latitude.TabIndex = 4
  888.         Me.Latitude.Text = "(Unknown)"
  889.         '
  890.         'BearingLabel
  891.         '
  892.         Me.BearingLabel.BackColor = System.Drawing.Color.Transparent
  893.         Me.BearingLabel.Location = New System.Drawing.Point(9, 261)
  894.         Me.BearingLabel.Name = "BearingLabel"
  895.         Me.BearingLabel.Size = New System.Drawing.Size(87, 18)
  896.         Me.BearingLabel.TabIndex = 3
  897.         Me.BearingLabel.Text = "Bearing:"
  898.         '
  899.         'LongitudeLabel
  900.         '
  901.         Me.LongitudeLabel.BackColor = System.Drawing.Color.Transparent
  902.         Me.LongitudeLabel.Location = New System.Drawing.Point(9, 189)
  903.         Me.LongitudeLabel.Name = "LongitudeLabel"
  904.         Me.LongitudeLabel.Size = New System.Drawing.Size(87, 18)
  905.         Me.LongitudeLabel.TabIndex = 1
  906.         Me.LongitudeLabel.Text = "Longitude:"
  907.         '
  908.         'AltitudeLabel
  909.         '
  910.         Me.AltitudeLabel.BackColor = System.Drawing.Color.Transparent
  911.         Me.AltitudeLabel.Location = New System.Drawing.Point(9, 225)
  912.         Me.AltitudeLabel.Name = "AltitudeLabel"
  913.         Me.AltitudeLabel.Size = New System.Drawing.Size(87, 18)
  914.         Me.AltitudeLabel.TabIndex = 2
  915.         Me.AltitudeLabel.Text = "Altitude:"
  916.         '
  917.         'LatitudeLabel
  918.         '
  919.         Me.LatitudeLabel.BackColor = System.Drawing.Color.Transparent
  920.         Me.LatitudeLabel.Location = New System.Drawing.Point(9, 171)
  921.         Me.LatitudeLabel.Name = "LatitudeLabel"
  922.         Me.LatitudeLabel.Size = New System.Drawing.Size(87, 18)
  923.         Me.LatitudeLabel.TabIndex = 0
  924.         Me.LatitudeLabel.Text = "Latitude:"
  925.         '
  926.         'SatelliteTabPage
  927.         '
  928.         Me.SatelliteTabPage.Controls.Add(Me.FixLikelihood)
  929.         Me.SatelliteTabPage.Controls.Add(Me.FixLikelihoodLabel)
  930.         Me.SatelliteTabPage.Controls.Add(Me.SatelliteViewer)
  931.         Me.SatelliteTabPage.Controls.Add(Me.ShowCompassCheckBox)
  932.         Me.SatelliteTabPage.Controls.Add(Me.ShowPrcCheckBox)
  933.         Me.SatelliteTabPage.Controls.Add(Me.FlickerFreeDemoCheckBox)
  934.         Me.SatelliteTabPage.Controls.Add(Me.SatelliteList)
  935.         Me.SatelliteTabPage.Location = New System.Drawing.Point(4, 22)
  936.         Me.SatelliteTabPage.Name = "SatelliteTabPage"
  937.         Me.SatelliteTabPage.Size = New System.Drawing.Size(397, 487)
  938.         Me.SatelliteTabPage.TabIndex = 1
  939.         Me.SatelliteTabPage.Text = "Satellites"
  940.         '
  941.         'FixLikelihood
  942.         '
  943.         Me.FixLikelihood.Location = New System.Drawing.Point(90, 9)
  944.         Me.FixLikelihood.Name = "FixLikelihood"
  945.         Me.FixLikelihood.Size = New System.Drawing.Size(111, 18)
  946.         Me.FixLikelihood.TabIndex = 14
  947.         Me.FixLikelihood.Text = "Unlikely"
  948.         '
  949.         'FixLikelihoodLabel
  950.         '
  951.         Me.FixLikelihoodLabel.Location = New System.Drawing.Point(9, 9)
  952.         Me.FixLikelihoodLabel.Name = "FixLikelihoodLabel"
  953.         Me.FixLikelihoodLabel.Size = New System.Drawing.Size(78, 18)
  954.         Me.FixLikelihoodLabel.TabIndex = 13
  955.         Me.FixLikelihoodLabel.Text = "Fix likelihood:"
  956.         '
  957.         'SatelliteViewer
  958.         '
  959.         Me.SatelliteViewer.BackColor = System.Drawing.SystemColors.Control
  960.         Me.SatelliteViewer.Bearing = 0.0!
  961.         Me.SatelliteViewer.CompassFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  962.         Me.SatelliteViewer.DestinationBearing = 0.0!
  963.         Me.SatelliteViewer.Location = New System.Drawing.Point(12, 267)
  964.         Me.SatelliteViewer.Name = "SatelliteViewer"
  965.         Me.SatelliteViewer.Orientation = StormSource.Gps.Controls.OrientationMode.BearingUp
  966.         Me.SatelliteViewer.PseudoRandomCodeFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
  967.         Me.SatelliteViewer.Receiver = Nothing
  968.         Me.SatelliteViewer.RegionShape = StormSource.Gps.Controls.RegionShapeMode.Square
  969.         Me.SatelliteViewer.Size = New System.Drawing.Size(237, 213)
  970.         Me.SatelliteViewer.TabIndex = 12
  971.         '
  972.         'ShowCompassCheckBox
  973.         '
  974.         Me.ShowCompassCheckBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  975.         Me.ShowCompassCheckBox.BackColor = System.Drawing.Color.Transparent
  976.         Me.ShowCompassCheckBox.Checked = True
  977.         Me.ShowCompassCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
  978.         Me.ShowCompassCheckBox.Location = New System.Drawing.Point(258, 309)
  979.         Me.ShowCompassCheckBox.Name = "ShowCompassCheckBox"
  980.         Me.ShowCompassCheckBox.Size = New System.Drawing.Size(102, 18)
  981.         Me.ShowCompassCheckBox.TabIndex = 11
  982.         Me.ShowCompassCheckBox.Text = "Show Compass"
  983.         '
  984.         'ShowPrcCheckBox
  985.         '
  986.         Me.ShowPrcCheckBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  987.         Me.ShowPrcCheckBox.BackColor = System.Drawing.Color.Transparent
  988.         Me.ShowPrcCheckBox.Checked = True
  989.         Me.ShowPrcCheckBox.CheckState = System.Windows.Forms.CheckState.Checked
  990.         Me.ShowPrcCheckBox.Location = New System.Drawing.Point(258, 288)
  991.         Me.ShowPrcCheckBox.Name = "ShowPrcCheckBox"
  992.         Me.ShowPrcCheckBox.Size = New System.Drawing.Size(129, 18)
  993.         Me.ShowPrcCheckBox.TabIndex = 10
  994.         Me.ShowPrcCheckBox.Text = "Show PRC Numbers"
  995.         '
  996.         'FlickerFreeDemoCheckBox
  997.         '
  998.         Me.FlickerFreeDemoCheckBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  999.         Me.FlickerFreeDemoCheckBox.BackColor = System.Drawing.Color.Transparent
  1000.         Me.FlickerFreeDemoCheckBox.Location = New System.Drawing.Point(258, 267)
  1001.         Me.FlickerFreeDemoCheckBox.Name = "FlickerFreeDemoCheckBox"
  1002.         Me.FlickerFreeDemoCheckBox.Size = New System.Drawing.Size(129, 18)
  1003.         Me.FlickerFreeDemoCheckBox.TabIndex = 9
  1004.         Me.FlickerFreeDemoCheckBox.Text = "Demonstrate rotation"
  1005.         '
  1006.         'SatelliteList
  1007.         '
  1008.         Me.SatelliteList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1009.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1010.         Me.SatelliteList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.SatelliteID, Me.SatelliteElevation, Me.SatelliteAzimuth, Me.SatelliteSignalStrength})
  1011.         Me.SatelliteList.FullRowSelect = True
  1012.         Me.SatelliteList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3, ListViewItem4, ListViewItem5, ListViewItem6, ListViewItem7, ListViewItem8, ListViewItem9, ListViewItem10, ListViewItem11, ListViewItem12, ListViewItem13, ListViewItem14, ListViewItem15})
  1013.         Me.SatelliteList.Location = New System.Drawing.Point(9, 30)
  1014.         Me.SatelliteList.Name = "SatelliteList"
  1015.         Me.SatelliteList.Size = New System.Drawing.Size(378, 231)
  1016.         Me.SatelliteList.TabIndex = 0
  1017.         Me.SatelliteList.View = System.Windows.Forms.View.Details
  1018.         '
  1019.         'SatelliteID
  1020.         '
  1021.         Me.SatelliteID.Text = "PRC"
  1022.         Me.SatelliteID.Width = 77
  1023.         '
  1024.         'SatelliteElevation
  1025.         '
  1026.         Me.SatelliteElevation.Text = "Elevation"
  1027.         Me.SatelliteElevation.Width = 80
  1028.         '
  1029.         'SatelliteAzimuth
  1030.         '
  1031.         Me.SatelliteAzimuth.Text = "Azimuth"
  1032.         Me.SatelliteAzimuth.Width = 81
  1033.         '
  1034.         'SatelliteSignalStrength
  1035.         '
  1036.         Me.SatelliteSignalStrength.Text = "Signal Strength"
  1037.         Me.SatelliteSignalStrength.Width = 116
  1038.         '
  1039.         'DeviceTabPage
  1040.         '
  1041.         Me.DeviceTabPage.Controls.Add(Me.SupportedWaypointFeaturesGroupBox)
  1042.         Me.DeviceTabPage.Controls.Add(Me.DeviceInformationGroupBox)
  1043.         Me.DeviceTabPage.Location = New System.Drawing.Point(4, 22)
  1044.         Me.DeviceTabPage.Name = "DeviceTabPage"
  1045.         Me.DeviceTabPage.Size = New System.Drawing.Size(397, 487)
  1046.         Me.DeviceTabPage.TabIndex = 4
  1047.         Me.DeviceTabPage.Text = "Device"
  1048.         '
  1049.         'SupportedWaypointFeaturesGroupBox
  1050.         '
  1051.         Me.SupportedWaypointFeaturesGroupBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1052.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1053.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointDisplayModeComboBox)
  1054.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointColorComboBox)
  1055.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointSymbolComboBox)
  1056.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointIntersectingRoadCheckbox)
  1057.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointCountryCheckbox)
  1058.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointDepthCheckbox)
  1059.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointFacilityNameCheckbox)
  1060.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointCityCheckbox)
  1061.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointStateCheckbox)
  1062.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointAddressCheckbox)
  1063.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointAltitudeCheckbox)
  1064.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointDisplayModeCheckbox)
  1065.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointSymbolCheckbox)
  1066.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointColorCheckbox)
  1067.         Me.SupportedWaypointFeaturesGroupBox.Controls.Add(Me.WaypointCommentCheckbox)
  1068.         Me.SupportedWaypointFeaturesGroupBox.Location = New System.Drawing.Point(9, 225)
  1069.         Me.SupportedWaypointFeaturesGroupBox.Name = "SupportedWaypointFeaturesGroupBox"
  1070.         Me.SupportedWaypointFeaturesGroupBox.Size = New System.Drawing.Size(381, 249)
  1071.         Me.SupportedWaypointFeaturesGroupBox.TabIndex = 72
  1072.         Me.SupportedWaypointFeaturesGroupBox.TabStop = False
  1073.         Me.SupportedWaypointFeaturesGroupBox.Text = "Supported Waypoint Features"
  1074.         '
  1075.         'WaypointDisplayModeComboBox
  1076.         '
  1077.         Me.WaypointDisplayModeComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  1078.         Me.WaypointDisplayModeComboBox.Enabled = False
  1079.         Me.WaypointDisplayModeComboBox.Location = New System.Drawing.Point(33, 180)
  1080.         Me.WaypointDisplayModeComboBox.Name = "WaypointDisplayModeComboBox"
  1081.         Me.WaypointDisplayModeComboBox.Size = New System.Drawing.Size(141, 21)
  1082.         Me.WaypointDisplayModeComboBox.Sorted = True
  1083.         Me.WaypointDisplayModeComboBox.TabIndex = 15
  1084.         '
  1085.         'WaypointColorComboBox
  1086.         '
  1087.         Me.WaypointColorComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  1088.         Me.WaypointColorComboBox.Enabled = False
  1089.         Me.WaypointColorComboBox.Location = New System.Drawing.Point(33, 129)
  1090.         Me.WaypointColorComboBox.Name = "WaypointColorComboBox"
  1091.         Me.WaypointColorComboBox.Size = New System.Drawing.Size(141, 21)
  1092.         Me.WaypointColorComboBox.Sorted = True
  1093.         Me.WaypointColorComboBox.TabIndex = 14
  1094.         '
  1095.         'WaypointSymbolComboBox
  1096.         '
  1097.         Me.WaypointSymbolComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
  1098.         Me.WaypointSymbolComboBox.Enabled = False
  1099.         Me.WaypointSymbolComboBox.Location = New System.Drawing.Point(33, 78)
  1100.         Me.WaypointSymbolComboBox.Name = "WaypointSymbolComboBox"
  1101.         Me.WaypointSymbolComboBox.Size = New System.Drawing.Size(141, 21)
  1102.         Me.WaypointSymbolComboBox.Sorted = True
  1103.         Me.WaypointSymbolComboBox.TabIndex = 13
  1104.         '
  1105.         'WaypointIntersectingRoadCheckbox
  1106.         '
  1107.         Me.WaypointIntersectingRoadCheckbox.AutoCheck = False
  1108.         Me.WaypointIntersectingRoadCheckbox.Enabled = False
  1109.         Me.WaypointIntersectingRoadCheckbox.Location = New System.Drawing.Point(201, 198)
  1110.         Me.WaypointIntersectingRoadCheckbox.Name = "WaypointIntersectingRoadCheckbox"
  1111.         Me.WaypointIntersectingRoadCheckbox.Size = New System.Drawing.Size(147, 21)
  1112.         Me.WaypointIntersectingRoadCheckbox.TabIndex = 12
  1113.         Me.WaypointIntersectingRoadCheckbox.Text = "Intersecting Road"
  1114.         '
  1115.         'WaypointCountryCheckbox
  1116.         '
  1117.         Me.WaypointCountryCheckbox.AutoCheck = False
  1118.         Me.WaypointCountryCheckbox.Enabled = False
  1119.         Me.WaypointCountryCheckbox.Location = New System.Drawing.Point(201, 174)
  1120.         Me.WaypointCountryCheckbox.Name = "WaypointCountryCheckbox"
  1121.         Me.WaypointCountryCheckbox.Size = New System.Drawing.Size(147, 21)
  1122.         Me.WaypointCountryCheckbox.TabIndex = 11
  1123.         Me.WaypointCountryCheckbox.Text = "Country"
  1124.         '
  1125.         'WaypointDepthCheckbox
  1126.         '
  1127.         Me.WaypointDepthCheckbox.AutoCheck = False
  1128.         Me.WaypointDepthCheckbox.Enabled = False
  1129.         Me.WaypointDepthCheckbox.Location = New System.Drawing.Point(201, 54)
  1130.         Me.WaypointDepthCheckbox.Name = "WaypointDepthCheckbox"
  1131.         Me.WaypointDepthCheckbox.Size = New System.Drawing.Size(147, 21)
  1132.         Me.WaypointDepthCheckbox.TabIndex = 10
  1133.         Me.WaypointDepthCheckbox.Text = "Depth"
  1134.         '
  1135.         'WaypointFacilityNameCheckbox
  1136.         '
  1137.         Me.WaypointFacilityNameCheckbox.AutoCheck = False
  1138.         Me.WaypointFacilityNameCheckbox.Enabled = False
  1139.         Me.WaypointFacilityNameCheckbox.Location = New System.Drawing.Point(201, 102)
  1140.         Me.WaypointFacilityNameCheckbox.Name = "WaypointFacilityNameCheckbox"
  1141.         Me.WaypointFacilityNameCheckbox.Size = New System.Drawing.Size(147, 21)
  1142.         Me.WaypointFacilityNameCheckbox.TabIndex = 9
  1143.         Me.WaypointFacilityNameCheckbox.Text = "Facility name"
  1144.         '
  1145.         'WaypointCityCheckbox
  1146.         '
  1147.         Me.WaypointCityCheckbox.AutoCheck = False
  1148.         Me.WaypointCityCheckbox.Enabled = False
  1149.         Me.WaypointCityCheckbox.Location = New System.Drawing.Point(201, 126)
  1150.         Me.WaypointCityCheckbox.Name = "WaypointCityCheckbox"
  1151.         Me.WaypointCityCheckbox.Size = New System.Drawing.Size(147, 21)
  1152.         Me.WaypointCityCheckbox.TabIndex = 8
  1153.         Me.WaypointCityCheckbox.Text = "City"
  1154.         '
  1155.         'WaypointStateCheckbox
  1156.         '
  1157.         Me.WaypointStateCheckbox.AutoCheck = False
  1158.         Me.WaypointStateCheckbox.Enabled = False
  1159.         Me.WaypointStateCheckbox.Location = New System.Drawing.Point(201, 150)
  1160.         Me.WaypointStateCheckbox.Name = "WaypointStateCheckbox"
  1161.         Me.WaypointStateCheckbox.Size = New System.Drawing.Size(147, 21)
  1162.         Me.WaypointStateCheckbox.TabIndex = 7
  1163.         Me.WaypointStateCheckbox.Text = "State"
  1164.         '
  1165.         'WaypointAddressCheckbox
  1166.         '
  1167.         Me.WaypointAddressCheckbox.AutoCheck = False
  1168.         Me.WaypointAddressCheckbox.Enabled = False
  1169.         Me.WaypointAddressCheckbox.Location = New System.Drawing.Point(201, 78)
  1170.         Me.WaypointAddressCheckbox.Name = "WaypointAddressCheckbox"
  1171.         Me.WaypointAddressCheckbox.Size = New System.Drawing.Size(147, 21)
  1172.         Me.WaypointAddressCheckbox.TabIndex = 6
  1173.         Me.WaypointAddressCheckbox.Text = "Address"
  1174.         '
  1175.         'WaypointAltitudeCheckbox
  1176.         '
  1177.         Me.WaypointAltitudeCheckbox.AutoCheck = False
  1178.         Me.WaypointAltitudeCheckbox.Enabled = False
  1179.         Me.WaypointAltitudeCheckbox.Location = New System.Drawing.Point(201, 30)
  1180.         Me.WaypointAltitudeCheckbox.Name = "WaypointAltitudeCheckbox"
  1181.         Me.WaypointAltitudeCheckbox.Size = New System.Drawing.Size(147, 21)
  1182.         Me.WaypointAltitudeCheckbox.TabIndex = 5
  1183.         Me.WaypointAltitudeCheckbox.Text = "Altitude"
  1184.         '
  1185.         'WaypointDisplayModeCheckbox
  1186.         '
  1187.         Me.WaypointDisplayModeCheckbox.AutoCheck = False
  1188.         Me.WaypointDisplayModeCheckbox.Enabled = False
  1189.         Me.WaypointDisplayModeCheckbox.Location = New System.Drawing.Point(15, 159)
  1190.         Me.WaypointDisplayModeCheckbox.Name = "WaypointDisplayModeCheckbox"
  1191.         Me.WaypointDisplayModeCheckbox.Size = New System.Drawing.Size(150, 21)
  1192.         Me.WaypointDisplayModeCheckbox.TabIndex = 4
  1193.         Me.WaypointDisplayModeCheckbox.Text = "Display Modes (See list):"
  1194.         '
  1195.         'WaypointSymbolCheckbox
  1196.         '
  1197.         Me.WaypointSymbolCheckbox.AutoCheck = False
  1198.         Me.WaypointSymbolCheckbox.Enabled = False
  1199.         Me.WaypointSymbolCheckbox.Location = New System.Drawing.Point(15, 54)
  1200.         Me.WaypointSymbolCheckbox.Name = "WaypointSymbolCheckbox"
  1201.         Me.WaypointSymbolCheckbox.Size = New System.Drawing.Size(126, 21)
  1202.         Me.WaypointSymbolCheckbox.TabIndex = 3
  1203.         Me.WaypointSymbolCheckbox.Text = "Symbols (See list):"
  1204.         '
  1205.         'WaypointColorCheckbox
  1206.         '
  1207.         Me.WaypointColorCheckbox.AutoCheck = False
  1208.         Me.WaypointColorCheckbox.Enabled = False
  1209.         Me.WaypointColorCheckbox.Location = New System.Drawing.Point(15, 108)
  1210.         Me.WaypointColorCheckbox.Name = "WaypointColorCheckbox"
  1211.         Me.WaypointColorCheckbox.Size = New System.Drawing.Size(126, 21)
  1212.         Me.WaypointColorCheckbox.TabIndex = 2
  1213.         Me.WaypointColorCheckbox.Text = "Colors (See list):"
  1214.         '
  1215.         'WaypointCommentCheckbox
  1216.         '
  1217.         Me.WaypointCommentCheckbox.AutoCheck = False
  1218.         Me.WaypointCommentCheckbox.Enabled = False
  1219.         Me.WaypointCommentCheckbox.Location = New System.Drawing.Point(15, 30)
  1220.         Me.WaypointCommentCheckbox.Name = "WaypointCommentCheckbox"
  1221.         Me.WaypointCommentCheckbox.Size = New System.Drawing.Size(126, 21)
  1222.         Me.WaypointCommentCheckbox.TabIndex = 1
  1223.         Me.WaypointCommentCheckbox.Text = "Comment"
  1224.         '
  1225.         'DeviceInformationGroupBox
  1226.         '
  1227.         Me.DeviceInformationGroupBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1228.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1229.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsRoutes)
  1230.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsTracks)
  1231.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsWaypoints)
  1232.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsRoutesLabel)
  1233.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsTracksLabel)
  1234.         Me.DeviceInformationGroupBox.Controls.Add(Me.SupportsWaypointsLabel)
  1235.         Me.DeviceInformationGroupBox.Controls.Add(Me.BatteryLifeLabel)
  1236.         Me.DeviceInformationGroupBox.Controls.Add(Me.BatteryLife)
  1237.         Me.DeviceInformationGroupBox.Controls.Add(Me.ProtocolLabel)
  1238.         Me.DeviceInformationGroupBox.Controls.Add(Me.Protocol)
  1239.         Me.DeviceInformationGroupBox.Controls.Add(Me.SoftwareVersion)
  1240.         Me.DeviceInformationGroupBox.Controls.Add(Me.SoftwareVersionLabel)
  1241.         Me.DeviceInformationGroupBox.Controls.Add(Me.DeviceName)
  1242.         Me.DeviceInformationGroupBox.Controls.Add(Me.ManufacturerLabel)
  1243.         Me.DeviceInformationGroupBox.Controls.Add(Me.Manufacturer)
  1244.         Me.DeviceInformationGroupBox.Controls.Add(Me.DeviceNameLabel)
  1245.         Me.DeviceInformationGroupBox.Controls.Add(Me.PowerOffButton)
  1246.         Me.DeviceInformationGroupBox.Location = New System.Drawing.Point(9, 9)
  1247.         Me.DeviceInformationGroupBox.Name = "DeviceInformationGroupBox"
  1248.         Me.DeviceInformationGroupBox.Size = New System.Drawing.Size(381, 207)
  1249.         Me.DeviceInformationGroupBox.TabIndex = 71
  1250.         Me.DeviceInformationGroupBox.TabStop = False
  1251.         Me.DeviceInformationGroupBox.Text = "Device Information"
  1252.         '
  1253.         'SupportsRoutes
  1254.         '
  1255.         Me.SupportsRoutes.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1256.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1257.         Me.SupportsRoutes.BackColor = System.Drawing.Color.Transparent
  1258.         Me.SupportsRoutes.Location = New System.Drawing.Point(135, 174)
  1259.         Me.SupportsRoutes.Name = "SupportsRoutes"
  1260.         Me.SupportsRoutes.Size = New System.Drawing.Size(153, 18)
  1261.         Me.SupportsRoutes.TabIndex = 86
  1262.         Me.SupportsRoutes.Text = "(Unknown)"
  1263.         '
  1264.         'SupportsTracks
  1265.         '
  1266.         Me.SupportsTracks.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1267.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1268.         Me.SupportsTracks.BackColor = System.Drawing.Color.Transparent
  1269.         Me.SupportsTracks.Location = New System.Drawing.Point(135, 153)
  1270.         Me.SupportsTracks.Name = "SupportsTracks"
  1271.         Me.SupportsTracks.Size = New System.Drawing.Size(153, 18)
  1272.         Me.SupportsTracks.TabIndex = 85
  1273.         Me.SupportsTracks.Text = "(Unknown)"
  1274.         '
  1275.         'SupportsWaypoints
  1276.         '
  1277.         Me.SupportsWaypoints.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1278.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1279.         Me.SupportsWaypoints.BackColor = System.Drawing.Color.Transparent
  1280.         Me.SupportsWaypoints.Location = New System.Drawing.Point(135, 132)
  1281.         Me.SupportsWaypoints.Name = "SupportsWaypoints"
  1282.         Me.SupportsWaypoints.Size = New System.Drawing.Size(153, 18)
  1283.         Me.SupportsWaypoints.TabIndex = 84
  1284.         Me.SupportsWaypoints.Text = "(Unknown)"
  1285.         '
  1286.         'SupportsRoutesLabel
  1287.         '
  1288.         Me.SupportsRoutesLabel.Location = New System.Drawing.Point(15, 174)
  1289.         Me.SupportsRoutesLabel.Name = "SupportsRoutesLabel"
  1290.         Me.SupportsRoutesLabel.Size = New System.Drawing.Size(114, 18)
  1291.         Me.SupportsRoutesLabel.TabIndex = 83
  1292.         Me.SupportsRoutesLabel.Text = "Supports Routes?"
  1293.         '
  1294.         'SupportsTracksLabel
  1295.         '
  1296.         Me.SupportsTracksLabel.BackColor = System.Drawing.Color.Transparent
  1297.         Me.SupportsTracksLabel.Location = New System.Drawing.Point(15, 153)
  1298.         Me.SupportsTracksLabel.Name = "SupportsTracksLabel"
  1299.         Me.SupportsTracksLabel.Size = New System.Drawing.Size(114, 18)
  1300.         Me.SupportsTracksLabel.TabIndex = 82
  1301.         Me.SupportsTracksLabel.Text = "Supports Tracks?"
  1302.         '
  1303.         'SupportsWaypointsLabel
  1304.         '
  1305.         Me.SupportsWaypointsLabel.BackColor = System.Drawing.Color.Transparent
  1306.         Me.SupportsWaypointsLabel.Location = New System.Drawing.Point(15, 132)
  1307.         Me.SupportsWaypointsLabel.Name = "SupportsWaypointsLabel"
  1308.         Me.SupportsWaypointsLabel.Size = New System.Drawing.Size(114, 18)
  1309.         Me.SupportsWaypointsLabel.TabIndex = 81
  1310.         Me.SupportsWaypointsLabel.Text = "Supports Waypoints?"
  1311.         '
  1312.         'BatteryLifeLabel
  1313.         '
  1314.         Me.BatteryLifeLabel.BackColor = System.Drawing.Color.Transparent
  1315.         Me.BatteryLifeLabel.Location = New System.Drawing.Point(15, 111)
  1316.         Me.BatteryLifeLabel.Name = "BatteryLifeLabel"
  1317.         Me.BatteryLifeLabel.Size = New System.Drawing.Size(114, 18)
  1318.         Me.BatteryLifeLabel.TabIndex = 80
  1319.         Me.BatteryLifeLabel.Text = "Battery Life:"
  1320.         '
  1321.         'BatteryLife
  1322.         '
  1323.         Me.BatteryLife.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1324.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1325.         Me.BatteryLife.BackColor = System.Drawing.Color.Transparent
  1326.         Me.BatteryLife.Location = New System.Drawing.Point(135, 111)
  1327.         Me.BatteryLife.Name = "BatteryLife"
  1328.         Me.BatteryLife.Size = New System.Drawing.Size(237, 18)
  1329.         Me.BatteryLife.TabIndex = 79
  1330.         Me.BatteryLife.Text = "(Unknown)"
  1331.         '
  1332.         'ProtocolLabel
  1333.         '
  1334.         Me.ProtocolLabel.BackColor = System.Drawing.Color.Transparent
  1335.         Me.ProtocolLabel.Location = New System.Drawing.Point(15, 90)
  1336.         Me.ProtocolLabel.Name = "ProtocolLabel"
  1337.         Me.ProtocolLabel.Size = New System.Drawing.Size(114, 18)
  1338.         Me.ProtocolLabel.TabIndex = 78
  1339.         Me.ProtocolLabel.Text = "Protocol:"
  1340.         '
  1341.         'Protocol
  1342.         '
  1343.         Me.Protocol.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1344.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1345.         Me.Protocol.BackColor = System.Drawing.Color.Transparent
  1346.         Me.Protocol.Location = New System.Drawing.Point(135, 90)
  1347.         Me.Protocol.Name = "Protocol"
  1348.         Me.Protocol.Size = New System.Drawing.Size(237, 18)
  1349.         Me.Protocol.TabIndex = 77
  1350.         Me.Protocol.Text = "(Unknown)"
  1351.         '
  1352.         'SoftwareVersion
  1353.         '
  1354.         Me.SoftwareVersion.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1355.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1356.         Me.SoftwareVersion.BackColor = System.Drawing.Color.Transparent
  1357.         Me.SoftwareVersion.Location = New System.Drawing.Point(135, 69)
  1358.         Me.SoftwareVersion.Name = "SoftwareVersion"
  1359.         Me.SoftwareVersion.Size = New System.Drawing.Size(237, 18)
  1360.         Me.SoftwareVersion.TabIndex = 76
  1361.         Me.SoftwareVersion.Text = "(Unknown)"
  1362.         '
  1363.         'SoftwareVersionLabel
  1364.         '
  1365.         Me.SoftwareVersionLabel.BackColor = System.Drawing.Color.Transparent
  1366.         Me.SoftwareVersionLabel.Location = New System.Drawing.Point(15, 69)
  1367.         Me.SoftwareVersionLabel.Name = "SoftwareVersionLabel"
  1368.         Me.SoftwareVersionLabel.Size = New System.Drawing.Size(114, 18)
  1369.         Me.SoftwareVersionLabel.TabIndex = 75
  1370.         Me.SoftwareVersionLabel.Text = "Software Version:"
  1371.         '
  1372.         'DeviceName
  1373.         '
  1374.         Me.DeviceName.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1375.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1376.         Me.DeviceName.BackColor = System.Drawing.Color.Transparent
  1377.         Me.DeviceName.Location = New System.Drawing.Point(135, 27)
  1378.         Me.DeviceName.Name = "DeviceName"
  1379.         Me.DeviceName.Size = New System.Drawing.Size(237, 18)
  1380.         Me.DeviceName.TabIndex = 74
  1381.         Me.DeviceName.Text = "(Unknown)"
  1382.         '
  1383.         'ManufacturerLabel
  1384.         '
  1385.         Me.ManufacturerLabel.BackColor = System.Drawing.Color.Transparent
  1386.         Me.ManufacturerLabel.Location = New System.Drawing.Point(15, 48)
  1387.         Me.ManufacturerLabel.Name = "ManufacturerLabel"
  1388.         Me.ManufacturerLabel.Size = New System.Drawing.Size(114, 18)
  1389.         Me.ManufacturerLabel.TabIndex = 73
  1390.         Me.ManufacturerLabel.Text = "Manufacturer:"
  1391.         '
  1392.         'Manufacturer
  1393.         '
  1394.         Me.Manufacturer.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1395.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1396.         Me.Manufacturer.BackColor = System.Drawing.Color.Transparent
  1397.         Me.Manufacturer.Location = New System.Drawing.Point(135, 48)
  1398.         Me.Manufacturer.Name = "Manufacturer"
  1399.         Me.Manufacturer.Size = New System.Drawing.Size(237, 18)
  1400.         Me.Manufacturer.TabIndex = 72
  1401.         Me.Manufacturer.Text = "(Unknown)"
  1402.         '
  1403.         'DeviceNameLabel
  1404.         '
  1405.         Me.DeviceNameLabel.BackColor = System.Drawing.Color.Transparent
  1406.         Me.DeviceNameLabel.Location = New System.Drawing.Point(15, 27)
  1407.         Me.DeviceNameLabel.Name = "DeviceNameLabel"
  1408.         Me.DeviceNameLabel.Size = New System.Drawing.Size(114, 18)
  1409.         Me.DeviceNameLabel.TabIndex = 71
  1410.         Me.DeviceNameLabel.Text = "Device Name:"
  1411.         '
  1412.         'PowerOffButton
  1413.         '
  1414.         Me.PowerOffButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1415.         Me.PowerOffButton.Enabled = False
  1416.         Me.PowerOffButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  1417.         Me.PowerOffButton.Location = New System.Drawing.Point(297, 141)
  1418.         Me.PowerOffButton.Name = "PowerOffButton"
  1419.         Me.PowerOffButton.Size = New System.Drawing.Size(72, 24)
  1420.         Me.PowerOffButton.TabIndex = 63
  1421.         Me.PowerOffButton.Text = "Power Off"
  1422.         '
  1423.         'ErrorTabPage
  1424.         '
  1425.         Me.ErrorTabPage.Controls.Add(Me.GpsExceptionTextBox)
  1426.         Me.ErrorTabPage.Controls.Add(Me.Label3)
  1427.         Me.ErrorTabPage.Controls.Add(Me.ParsingExceptionTextBox)
  1428.         Me.ErrorTabPage.Controls.Add(Me.Label2)
  1429.         Me.ErrorTabPage.Location = New System.Drawing.Point(4, 22)
  1430.         Me.ErrorTabPage.Name = "ErrorTabPage"
  1431.         Me.ErrorTabPage.Size = New System.Drawing.Size(397, 487)
  1432.         Me.ErrorTabPage.TabIndex = 5
  1433.         Me.ErrorTabPage.Text = "Errors"
  1434.         '
  1435.         'GpsExceptionTextBox
  1436.         '
  1437.         Me.GpsExceptionTextBox.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1438.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1439.         Me.GpsExceptionTextBox.Location = New System.Drawing.Point(7, 27)
  1440.         Me.GpsExceptionTextBox.Multiline = True
  1441.         Me.GpsExceptionTextBox.Name = "GpsExceptionTextBox"
  1442.         Me.GpsExceptionTextBox.ReadOnly = True
  1443.         Me.GpsExceptionTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
  1444.         Me.GpsExceptionTextBox.Size = New System.Drawing.Size(380, 198)
  1445.         Me.GpsExceptionTextBox.TabIndex = 13
  1446.         Me.GpsExceptionTextBox.Text = ""
  1447.         '
  1448.         'Label3
  1449.         '
  1450.         Me.Label3.AllowDrop = True
  1451.         Me.Label3.Location = New System.Drawing.Point(7, 9)
  1452.         Me.Label3.Name = "Label3"
  1453.         Me.Label3.Size = New System.Drawing.Size(188, 15)
  1454.         Me.Label3.TabIndex = 12
  1455.         Me.Label3.Text = "Unexpected exceptions:"
  1456.         '
  1457.         'ParsingExceptionTextBox
  1458.         '
  1459.         Me.ParsingExceptionTextBox.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  1460.                     Or System.Windows.Forms.AnchorStyles.Left) _
  1461.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1462.         Me.ParsingExceptionTextBox.Location = New System.Drawing.Point(9, 249)
  1463.         Me.ParsingExceptionTextBox.Multiline = True
  1464.         Me.ParsingExceptionTextBox.Name = "ParsingExceptionTextBox"
  1465.         Me.ParsingExceptionTextBox.ReadOnly = True
  1466.         Me.ParsingExceptionTextBox.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
  1467.         Me.ParsingExceptionTextBox.Size = New System.Drawing.Size(378, 231)
  1468.         Me.ParsingExceptionTextBox.TabIndex = 11
  1469.         Me.ParsingExceptionTextBox.Text = ""
  1470.         '
  1471.         'Label2
  1472.         '
  1473.         Me.Label2.AllowDrop = True
  1474.         Me.Label2.Location = New System.Drawing.Point(9, 231)
  1475.         Me.Label2.Name = "Label2"
  1476.         Me.Label2.Size = New System.Drawing.Size(171, 15)
  1477.         Me.Label2.TabIndex = 10
  1478.         Me.Label2.Text = "Recoverable parsing warnings:"
  1479.         '
  1480.         'WaypointTabPage
  1481.         '
  1482.         Me.WaypointTabPage.Controls.Add(Me.RecommendedSteeringDirection)
  1483.         Me.WaypointTabPage.Controls.Add(Me.RecommendedSteeringDirectionLabel)
  1484.         Me.WaypointTabPage.Controls.Add(Me.CrossTrackError)
  1485.         Me.WaypointTabPage.Controls.Add(Me.Label8)
  1486.         Me.WaypointTabPage.Controls.Add(Me.DestinationWaypoint)
  1487.         Me.WaypointTabPage.Controls.Add(Me.Label6)
  1488.         Me.WaypointTabPage.Controls.Add(Me.OriginWaypoint)
  1489.         Me.WaypointTabPage.Controls.Add(Me.OriginWaypointLabel)
  1490.         Me.WaypointTabPage.Controls.Add(Me.WaypointInstructionsLabel)
  1491.         Me.WaypointTabPage.Controls.Add(Me.NewWaypointButton)
  1492.         Me.WaypointTabPage.Controls.Add(Me.EditWaypointButton)
  1493.         Me.WaypointTabPage.Controls.Add(Me.DownloadWaypointButton)
  1494.         Me.WaypointTabPage.Controls.Add(Me.WaypointList)
  1495.         Me.WaypointTabPage.Location = New System.Drawing.Point(4, 22)
  1496.         Me.WaypointTabPage.Name = "WaypointTabPage"
  1497.         Me.WaypointTabPage.Size = New System.Drawing.Size(397, 487)
  1498.         Me.WaypointTabPage.TabIndex = 3
  1499.         Me.WaypointTabPage.Text = "Waypoints"
  1500.         '
  1501.         'RecommendedSteeringDirection
  1502.         '
  1503.         Me.RecommendedSteeringDirection.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1504.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1505.         Me.RecommendedSteeringDirection.Location = New System.Drawing.Point(132, 84)
  1506.         Me.RecommendedSteeringDirection.Name = "RecommendedSteeringDirection"
  1507.         Me.RecommendedSteeringDirection.Size = New System.Drawing.Size(255, 18)
  1508.         Me.RecommendedSteeringDirection.TabIndex = 20
  1509.         Me.RecommendedSteeringDirection.Text = "(Unknown)"
  1510.         '
  1511.         'RecommendedSteeringDirectionLabel
  1512.         '
  1513.         Me.RecommendedSteeringDirectionLabel.Location = New System.Drawing.Point(12, 84)
  1514.         Me.RecommendedSteeringDirectionLabel.Name = "RecommendedSteeringDirectionLabel"
  1515.         Me.RecommendedSteeringDirectionLabel.Size = New System.Drawing.Size(114, 18)
  1516.         Me.RecommendedSteeringDirectionLabel.TabIndex = 19
  1517.         Me.RecommendedSteeringDirectionLabel.Text = "Steer to correct:"
  1518.         '
  1519.         'CrossTrackError
  1520.         '
  1521.         Me.CrossTrackError.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1522.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1523.         Me.CrossTrackError.Location = New System.Drawing.Point(132, 60)
  1524.         Me.CrossTrackError.Name = "CrossTrackError"
  1525.         Me.CrossTrackError.Size = New System.Drawing.Size(255, 18)
  1526.         Me.CrossTrackError.TabIndex = 18
  1527.         Me.CrossTrackError.Text = "(Unknown)"
  1528.         '
  1529.         'Label8
  1530.         '
  1531.         Me.Label8.Location = New System.Drawing.Point(11, 60)
  1532.         Me.Label8.Name = "Label8"
  1533.         Me.Label8.Size = New System.Drawing.Size(115, 18)
  1534.         Me.Label8.TabIndex = 17
  1535.         Me.Label8.Text = "Cross-track error:"
  1536.         '
  1537.         'DestinationWaypoint
  1538.         '
  1539.         Me.DestinationWaypoint.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1540.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1541.         Me.DestinationWaypoint.Location = New System.Drawing.Point(132, 36)
  1542.         Me.DestinationWaypoint.Name = "DestinationWaypoint"
  1543.         Me.DestinationWaypoint.Size = New System.Drawing.Size(255, 18)
  1544.         Me.DestinationWaypoint.TabIndex = 16
  1545.         Me.DestinationWaypoint.Text = "(Unknown)"
  1546.         '
  1547.         'Label6
  1548.         '
  1549.         Me.Label6.Location = New System.Drawing.Point(12, 36)
  1550.         Me.Label6.Name = "Label6"
  1551.         Me.Label6.Size = New System.Drawing.Size(114, 18)
  1552.         Me.Label6.TabIndex = 15
  1553.         Me.Label6.Text = "Destination waypoint:"
  1554.         '
  1555.         'OriginWaypoint
  1556.         '
  1557.         Me.OriginWaypoint.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  1558.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1559.         Me.OriginWaypoint.Location = New System.Drawing.Point(132, 12)
  1560.         Me.OriginWaypoint.Name = "OriginWaypoint"
  1561.         Me.OriginWaypoint.Size = New System.Drawing.Size(255, 18)
  1562.         Me.OriginWaypoint.TabIndex = 14
  1563.         Me.OriginWaypoint.Text = "(Unknown)"
  1564.         '
  1565.         'OriginWaypointLabel
  1566.         '
  1567.         Me.OriginWaypointLabel.Location = New System.Drawing.Point(12, 12)
  1568.         Me.OriginWaypointLabel.Name = "OriginWaypointLabel"
  1569.         Me.OriginWaypointLabel.Size = New System.Drawing.Size(114, 18)
  1570.         Me.OriginWaypointLabel.TabIndex = 7
  1571.         Me.OriginWaypointLabel.Text = "Origin waypoint:"
  1572.         '
  1573.         'WaypointInstructionsLabel
  1574.         '
  1575.         Me.WaypointInstructionsLabel.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
  1576.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1577.         Me.WaypointInstructionsLabel.Location = New System.Drawing.Point(11, 417)
  1578.         Me.WaypointInstructionsLabel.Name = "WaypointInstructionsLabel"
  1579.         Me.WaypointInstructionsLabel.Size = New System.Drawing.Size(376, 57)
  1580.         Me.WaypointInstructionsLabel.TabIndex = 6
  1581.         Me.WaypointInstructionsLabel.Text = "NOTE: Garmin« waypoints are supported, but the device must be manually set to the" & _
  1582.         " Garmin« binary protocol and must be connected to at 9600 baud.   Garmin« device" & _
  1583.         "s to not have the ability to change protocols programmatically."
  1584.         '
  1585.         'NewWaypointButton
  1586.         '
  1587.         Me.NewWaypointButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1588.         Me.NewWaypointButton.Enabled = False
  1589.         Me.NewWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  1590.         Me.NewWaypointButton.Location = New System.Drawing.Point(162, 348)
  1591.         Me.NewWaypointButton.Name = "NewWaypointButton"
  1592.         Me.NewWaypointButton.Size = New System.Drawing.Size(69, 24)
  1593.         Me.NewWaypointButton.TabIndex = 5
  1594.         Me.NewWaypointButton.Text = "New..."
  1595.         '
  1596.         'EditWaypointButton
  1597.         '
  1598.         Me.EditWaypointButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1599.         Me.EditWaypointButton.Enabled = False
  1600.         Me.EditWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  1601.         Me.EditWaypointButton.Location = New System.Drawing.Point(240, 348)
  1602.         Me.EditWaypointButton.Name = "EditWaypointButton"
  1603.         Me.EditWaypointButton.Size = New System.Drawing.Size(69, 24)
  1604.         Me.EditWaypointButton.TabIndex = 4
  1605.         Me.EditWaypointButton.Text = "Edit..."
  1606.         '
  1607.         'DownloadWaypointButton
  1608.         '
  1609.         Me.DownloadWaypointButton.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1610.         Me.DownloadWaypointButton.Enabled = False
  1611.         Me.DownloadWaypointButton.FlatStyle = System.Windows.Forms.FlatStyle.System
  1612.         Me.DownloadWaypointButton.Location = New System.Drawing.Point(318, 348)
  1613.         Me.DownloadWaypointButton.Name = "DownloadWaypointButton"
  1614.         Me.DownloadWaypointButton.Size = New System.Drawing.Size(69, 24)
  1615.         Me.DownloadWaypointButton.TabIndex = 2
  1616.         Me.DownloadWaypointButton.Text = "Refresh"
  1617.         '
  1618.         'WaypointList
  1619.         '
  1620.         Me.WaypointList.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  1621.                     Or System.Windows.Forms.AnchorStyles.Left) _
  1622.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1623.         Me.WaypointList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader5, Me.ColumnHeader4})
  1624.         Me.WaypointList.FullRowSelect = True
  1625.         Me.WaypointList.Location = New System.Drawing.Point(9, 111)
  1626.         Me.WaypointList.Name = "WaypointList"
  1627.         Me.WaypointList.Size = New System.Drawing.Size(378, 228)
  1628.         Me.WaypointList.TabIndex = 1
  1629.         Me.WaypointList.View = System.Windows.Forms.View.Details
  1630.         '
  1631.         'ColumnHeader1
  1632.         '
  1633.         Me.ColumnHeader1.Text = "Name"
  1634.         Me.ColumnHeader1.Width = 77
  1635.         '
  1636.         'ColumnHeader2
  1637.         '
  1638.         Me.ColumnHeader2.Text = "Latitude"
  1639.         Me.ColumnHeader2.Width = 80
  1640.         '
  1641.         'ColumnHeader3
  1642.         '
  1643.         Me.ColumnHeader3.Text = "Longitude"
  1644.         Me.ColumnHeader3.Width = 81
  1645.         '
  1646.         'ColumnHeader5
  1647.         '
  1648.         Me.ColumnHeader5.Text = "Symbol"
  1649.         '
  1650.         'ColumnHeader4
  1651.         '
  1652.         Me.ColumnHeader4.Text = "Comment"
  1653.         '
  1654.         'TabControl1
  1655.         '
  1656.         Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  1657.                     Or System.Windows.Forms.AnchorStyles.Left) _
  1658.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  1659.         Me.TabControl1.Controls.Add(Me.RawDataTabPage)
  1660.         Me.TabControl1.Controls.Add(Me.PositionTabPage)
  1661.         Me.TabControl1.Controls.Add(Me.SatelliteTabPage)
  1662.         Me.TabControl1.Controls.Add(Me.DeviceTabPage)
  1663.         Me.TabControl1.Controls.Add(Me.ErrorTabPage)
  1664.         Me.TabControl1.Controls.Add(Me.WaypointTabPage)
  1665.         Me.TabControl1.ItemSize = New System.Drawing.Size(60, 18)
  1666.         Me.TabControl1.Location = New System.Drawing.Point(6, 9)
  1667.         Me.TabControl1.Name = "TabControl1"
  1668.         Me.TabControl1.SelectedIndex = 0
  1669.         Me.TabControl1.Size = New System.Drawing.Size(405, 513)
  1670.         Me.TabControl1.TabIndex = 4
  1671.         '
  1672.         'GpsReceiver
  1673.         '
  1674.         '
  1675.         'Form1
  1676.         '
  1677.         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  1678.         Me.ClientSize = New System.Drawing.Size(508, 545)
  1679.         Me.Controls.Add(Me.ComPortComboBox)
  1680.         Me.Controls.Add(Me.BaudRateComboBox)
  1681.         Me.Controls.Add(Me.BaudRateLabel)
  1682.         Me.Controls.Add(Me.ComPortLabel)
  1683.         Me.Controls.Add(Me.TabControl1)
  1684.         Me.Controls.Add(Me.StatusBar)
  1685.         Me.Controls.Add(Me.StopButton)
  1686.         Me.Controls.Add(Me.StartButton)
  1687.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  1688.         Me.MinimumSize = New System.Drawing.Size(100, 100)
  1689.         Me.Name = "Form1"
  1690.         Me.Text = "GPS.NET Complete Demonstration"
  1691.         CType(Me.LocalTimeTimer, System.ComponentModel.ISupportInitialize).EndInit()
  1692.         Me.RawDataTabPage.ResumeLayout(False)
  1693.         Me.PositionTabPage.ResumeLayout(False)
  1694.         Me.SatelliteTabPage.ResumeLayout(False)
  1695.         Me.DeviceTabPage.ResumeLayout(False)
  1696.         Me.SupportedWaypointFeaturesGroupBox.ResumeLayout(False)
  1697.         Me.DeviceInformationGroupBox.ResumeLayout(False)
  1698.         Me.ErrorTabPage.ResumeLayout(False)
  1699.         Me.WaypointTabPage.ResumeLayout(False)
  1700.         Me.TabControl1.ResumeLayout(False)
  1701.         Me.ResumeLayout(False)
  1702.  
  1703.     End Sub
  1704.  
  1705. #End Region
  1706.  
  1707. #Region "  Demonstration of Automatic Device Detection  "
  1708.  
  1709.     '  GpsReceiver.NET is able to search for and detect GPS devices connected to the device.
  1710.     '  This feature is recommended because it virtually removes the need to train your
  1711.     '  users on what serial ports are, and also removes the need to troubleshoot customers
  1712.     '  which do not know their correct serial port settings. 
  1713.     '
  1714.     '  To use device detection, set the Receiver.Device.Settings.ComPort property to
  1715.     '  ComPort.Automatic.  You can also use the DeviceSettingsDetector class to make your
  1716.     '  own device detection features.
  1717.  
  1718.     Private Sub GpsReceiver_DeviceDetectionStarted(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.DeviceDetectionStarted
  1719.         ' Update the status to show that the azimuth has changed
  1720.         UpdateStatusBar("Please wait, detecting GPS devices...")
  1721.     End Sub
  1722.  
  1723.     Private Sub GpsReceiver_DeviceDetectionCompleted(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.DeviceDetectionCompleted
  1724.         ' Update the status to show that the azimuth has changed
  1725.         UpdateStatusBar("GPS device detection has completed.")
  1726.     End Sub
  1727.  
  1728.     Private Sub GpsReceiver_DeviceDetected(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceSettingsEventArgs) Handles GpsReceiver.DeviceDetected
  1729.         ' Update the status to show that the azimuth has changed
  1730.         UpdateStatusBar("A GPS device was found on " & e.DeviceSettings.ComPort.ToString & "!")
  1731.     End Sub
  1732. #End Region
  1733.  
  1734. #Region "  Starting the GPS Service  "
  1735.  
  1736.     Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click
  1737.         ' Set the COM port and baud rate
  1738.         GpsReceiver.Device.Settings.ComPort = Me.ComPortComboBox.Value
  1739.         GpsReceiver.Device.Settings.BaudRate = Me.BaudRateComboBox.Value
  1740.         ' NOTE: It's important to add error checking around the Start() method and Enabled property
  1741.         Try
  1742.             ' Visit http://www.gpsdotnet.com/purchase for pricing and secure online ordering!
  1743.             'GpsReceiver.SetLicenseKey("[your license key here]")
  1744.  
  1745.             ' To maximize performance, tell Automatic Device Discovery to perform detection
  1746.             ' only once, then use the registry to retrieve settings.
  1747.             GpsReceiver.Device.DetectionMode = DeviceDetectionMode.UsePreviouslyDetectedDevices
  1748.             ' Uncomment the line below to perform detection once per session.  This is slower,
  1749.             ' but recommended because the application can then detect changes in device configurations.
  1750.             'GpsReceiver.Device.DetectionMode = DeviceDetectionMode.DetectOncePerSession
  1751.  
  1752.             ' Start receiving messages
  1753.             GpsReceiver.Start()
  1754.         Catch ex As UnauthorizedAccessException
  1755.             ' The trial screen was cancelled 
  1756.             MessageBox.Show(ex.ToString, "Cannot Continue Trial", MessageBoxButtons.OK, MessageBoxIcon.Error)
  1757.         Catch ex As GpsException
  1758.             ' Notify of the error
  1759.             MessageBox.Show(ex.ToString, "Unable to Begin GPS Communications", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
  1760.         End Try
  1761.     End Sub
  1762.  
  1763.     ' Raised just before a connection attempt is made
  1764.     Private Sub GpsReceiver_Connecting(ByVal sender As Object, ByVal e As DeviceSettingsEventArgs) Handles GpsReceiver.Connecting
  1765.         UpdateStatusBar("Connecting to GPS device on " & e.DeviceSettings.ComPort.ToString & "...")
  1766.         ' Enable the Stop button, disable the Start button
  1767.         StopButton.Enabled = True
  1768.         StartButton.Enabled = False
  1769.         BaudRateComboBox.Enabled = False
  1770.         ComPortComboBox.Enabled = False
  1771.     End Sub
  1772.  
  1773.     Private Sub GpsReceiver_Connected(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Connected
  1774.         UpdateStatusBar("Connected to GPS device, please wait...")
  1775.     End Sub
  1776.  
  1777.     Private Sub GpsReceiver_Acquiring(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Acquiring
  1778.         UpdateStatusBar("Please wait while satellite information is gathered...")
  1779.     End Sub
  1780.  
  1781.     ' Raised when the receiver has adjusted the baud rate in an attempt to receive GPS information
  1782.     Private Sub GpsReceiver_BaudRateChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.BaudRateChanged
  1783.         Select Case GpsReceiver.Device.Settings.BaudRate
  1784.             Case StormSource.Gps.BaudRate.Baud4800
  1785.                 Me.BaudRateComboBox.SelectedIndex = 0
  1786.             Case StormSource.Gps.BaudRate.Baud9600
  1787.                 Me.BaudRateComboBox.SelectedIndex = 1
  1788.         End Select
  1789.     End Sub
  1790.  
  1791.     Private Sub GpsReceiver_Timeout(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Timeout
  1792.         MessageBox.Show("The GPS device did not respond to commands, even after attempts to detect the correct connection settings.  The device may be powered off.  Try restarting the Receiver.", "GPS Device Timeout", MessageBoxButtons.OK, MessageBoxIcon.Hand)
  1793.     End Sub
  1794. #End Region
  1795.  
  1796. #Region "  Stopping the GPS Service  "
  1797.  
  1798.     Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click
  1799.         GpsReceiver.Stop()
  1800.     End Sub
  1801.  
  1802.     ' Raised just before an attempt is made to disconnect from the GPS device
  1803.     Private Sub GpsReceiver_Disconnecting(ByVal sender As Object, ByVal e As DeviceSettingsEventArgs) Handles GpsReceiver.Disconnecting
  1804.         UpdateStatusBar("Disconnecting from GPS device...")
  1805.         ' Reset start & stop buttons
  1806.         StartButton.Enabled = True
  1807.         PowerOffButton.Enabled = False
  1808.         DownloadWaypointButton.Enabled = False
  1809.         EditWaypointButton.Enabled = False
  1810.         NewWaypointButton.Enabled = False
  1811.         StopButton.Enabled = False
  1812.         BaudRateComboBox.Enabled = True
  1813.         ComPortComboBox.Enabled = True
  1814.     End Sub
  1815.  
  1816.     ' Raised when the connection with the device is now closed
  1817.     Private Sub GpsReceiver_Disconnected(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.Disconnected
  1818.         UpdateStatusBar("Disconnected from GPS device.")
  1819.     End Sub
  1820.  
  1821. #End Region
  1822.  
  1823. #Region "  Demonstration of Motion-Related GPS Events  "
  1824.  
  1825.     ' Raised when the current altitude has changed
  1826.     Private Sub GpsReceiver_AltitudeChanged(ByVal sender As Object, ByVal e As DistanceEventArgs) Handles GpsReceiver.AltitudeChanged
  1827.         UpdateStatusBar("Altitude has changed.")
  1828.         ' Are we using the Imperial or Metric system?
  1829.         If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
  1830.             ' Use the metric system
  1831.             Altitude.Text = GpsReceiver.Altitude.ToMeters.ToString
  1832.         Else
  1833.             ' Use the Imperial system
  1834.             Altitude.Text = GpsReceiver.Altitude.ToFeet.ToString
  1835.         End If
  1836.     End Sub
  1837.  
  1838.     ' Raised when the current direction of travel has changed
  1839.     Private Sub GpsReceiver_BearingChanged(ByVal sender As Object, ByVal e As AzimuthEventArgs) Handles GpsReceiver.BearingChanged
  1840.         UpdateStatusBar("Bearing has changed.")
  1841.         ' Update the bearing and compass direction
  1842.         Bearing.Text = GpsReceiver.Bearing.ToString
  1843.         ' And show the current bearing represented as a cardinal (compass) direction
  1844.         Direction.Text = GpsReceiver.Bearing.CardinalDirection.ToString
  1845.     End Sub
  1846.  
  1847.     Private Sub GpsReceiver_SpeedChanged(ByVal sender As Object, ByVal e As SpeedEventArgs) Handles GpsReceiver.SpeedChanged
  1848.         UpdateStatusBar("Speed has changed to " & e.Speed.ToString)
  1849.         ' Are we using the Imperial or Metric system?
  1850.         If System.Globalization.RegionInfo.CurrentRegion.IsMetric Then
  1851.             ' Use the Metric system
  1852.             Speed.Text = GpsReceiver.Speed.ToKilometersPerHour.ToString
  1853.         Else
  1854.             ' Use the Imperial system
  1855.             Speed.Text = GpsReceiver.Speed.ToStatuteMilesPerHour.ToString
  1856.         End If
  1857.     End Sub
  1858.  
  1859.     Private Sub GpsReceiver_PositionChanged(ByVal sender As Object, ByVal e As PositionEventArgs) Handles GpsReceiver.PositionChanged
  1860.         UpdateStatusBar("Position has changed.")
  1861.         ' Update the current latitude
  1862.         Latitude.Text = GpsReceiver.Position.Latitude.ToString
  1863.         ' Update the longitude
  1864.         Longitude.Text = GpsReceiver.Position.Longitude.ToString
  1865.     End Sub
  1866.  
  1867.     ' Raised when UTM coordinates have been reported from the GPS device
  1868.     Private Sub GpsReceiver_UtmPositionChanged(ByVal sender As Object, ByVal e As StormSource.Gps.UtmPositionEventArgs) Handles GpsReceiver.UtmPositionChanged
  1869.         UpdateStatusBar("UTM position has changed.")
  1870.         ' Update the current position (in UTM)
  1871.         UtmPosition.Text = GpsReceiver.UtmPosition.ToString
  1872.     End Sub
  1873.  
  1874. #End Region
  1875.  
  1876. #Region "  Demonstration of Precision-Related Events  "
  1877.  
  1878.     ' Raised when the accuracy of latitude/longitude measurements has changed
  1879.     Private Sub GpsReceiver_HorizontalDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.HorizontalDilutionOfPrecisionChanged
  1880.         UpdateStatusBar("Lat/long accuracy has changed to " & e.DilutionOfPrecision.ToString)
  1881.         ' Update the accuracy as it relates to latitude/longitude measurements
  1882.         HorizontalDilutionOfPrecision.Text = GpsReceiver.HorizontalDilutionOfPrecision.ToString
  1883.     End Sub
  1884.  
  1885.     ' Raised when the mean accuracy in the current latitude/longitude has changed
  1886.     Private Sub GpsReceiver_MeanDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.MeanDilutionOfPrecisionChanged
  1887.         UpdateStatusBar("General accuracy has changed to " & e.DilutionOfPrecision.ToString)
  1888.         ' Update the overall (mean) accuracy 
  1889.         MeanDilutionOfPrecision.Text = GpsReceiver.MeanDilutionOfPrecision.ToString
  1890.     End Sub
  1891.  
  1892.     ' Raised when the confidence level of altitude measurements has changed
  1893.     Private Sub GpsReceiver_VerticalDilutionOfPrecisionChanged(ByVal sender As Object, ByVal e As DilutionOfPrecisionEventArgs) Handles GpsReceiver.VerticalDilutionOfPrecisionChanged
  1894.         UpdateStatusBar("Altitude accuracy has changed to " & e.DilutionOfPrecision.ToString)
  1895.         ' Update the accuracy of altitude measurements
  1896.         VerticalDilutionOfPrecision.Text = GpsReceiver.VerticalDilutionOfPrecision.ToString
  1897.     End Sub
  1898.  
  1899.     Private Sub GpsReceiver_MagneticVariationChanged(ByVal sender As Object, ByVal e As LongitudeEventArgs) Handles GpsReceiver.MagneticVariationChanged
  1900.         UpdateStatusBar("Magnetic variation has changed")
  1901.         ' Update the magnetic variation
  1902.         MagneticVariation.Text = GpsReceiver.MagneticVariation.ToString
  1903.     End Sub
  1904.  
  1905.     Private Sub GpsReceiver_CrossTrackErrorChanged(ByVal sender As Object, ByVal e As StormSource.Gps.CrossTrackErrorEventArgs) Handles GpsReceiver.CrossTrackErrorChanged
  1906.         ' Update the cross-track error
  1907.         Me.CrossTrackError.Text = GpsReceiver.CrossTrackError.ToString
  1908.         ' Update the recommended steering direction to correct the error
  1909.         Me.RecommendedSteeringDirection.Text = GpsReceiver.CrossTrackError.RecommendedSteeringDirection.ToString
  1910.     End Sub
  1911.  
  1912. #End Region
  1913.  
  1914. #Region "  Demonstration of Exception Handling  "
  1915.     ' NOTE: This event is raised for errors which occur on separate threads within the GpsReceiver.NET engine. 
  1916.     '       Use Try..Catch blocks to handle typical GPS errors via the GPSException class.
  1917.     Private Sub GpsReceiver_ErrorOccurred(ByVal sender As Object, ByVal e As ErrorEventArgs) Handles GpsReceiver.ErrorOccurred
  1918.         ' Add the error to the top of the list
  1919.         GpsExceptionTextBox.Text = e.Exception.ToString & vbCrLf & GpsExceptionTextBox.Text
  1920.     End Sub
  1921.  
  1922.     ' This event is raised when invalid or corrupt data is received by the device.  This event only
  1923.     ' serves as a warning that some data was not 100% understood.  These
  1924.     ' errors are not typically forwarded to the user.
  1925.     Private Sub GpsReceiver_ParsingErrorOccurred(ByVal sender As Object, ByVal e As StormSource.Gps.ParsingErrorEventArgs) Handles GpsReceiver.ParsingErrorOccurred
  1926.         ' Add the error to the top of the list
  1927.         ParsingExceptionTextBox.Text = e.ParsingException.ToString & vbCrLf & ParsingExceptionTextBox.Text
  1928.     End Sub
  1929. #End Region
  1930.  
  1931. #Region "  Demonstration of Fix-Related Events  "
  1932.  
  1933.     ' Raised when the likelihood of obtaining (or sustaining) a fix has changed
  1934.     Private Sub GpsReceiver_FixLikelihoodChanged(ByVal sender As Object, ByVal e As StormSource.Gps.FixLikelihoodEventArgs) Handles GpsReceiver.FixLikelihoodChanged
  1935.         FixLikelihood.Text = e.FixLikelihood.ToString
  1936.         ' If a fix is obtained, fix likelihood indicates how stable the fix is
  1937.         If GpsReceiver.IsFixObtained Then
  1938.             UpdateStatusBar("Fix stability is now " & e.FixLikelihood.ToString)
  1939.         Else
  1940.             UpdateStatusBar("Fix likelihood is now " & e.FixLikelihood.ToString)
  1941.         End If
  1942.     End Sub
  1943.  
  1944.     Private Sub GpsReceiver_FixLost(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.FixLost
  1945.         UpdateStatusBar("Satellite fix has been lost.")
  1946.         ' Update the magnetic variation
  1947.         FixObtained.Text = "The fix was lost."
  1948.     End Sub
  1949.  
  1950.     Private Sub GpsReceiver_FixMethodChanged(ByVal sender As Object, ByVal e As FixMethodEventArgs) Handles GpsReceiver.FixMethodChanged
  1951.         UpdateStatusBar("Satellite fix method has changed.")
  1952.         ' Update the fix method
  1953.         FixMethod.Text = GpsReceiver.FixMethod.ToString
  1954.     End Sub
  1955.  
  1956.     Private Sub GpsReceiver_FixModeChanged(ByVal sender As Object, ByVal e As FixModeEventArgs) Handles GpsReceiver.FixModeChanged
  1957.         UpdateStatusBar("Satellite fix mode has changed.")
  1958.         ' Update the magnetic variation
  1959.         FixMode.Text = GpsReceiver.FixMode.ToString
  1960.     End Sub
  1961.  
  1962.     Private Sub GpsReceiver_FixObtained(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.FixObtained
  1963.         UpdateStatusBar("Satellite fix has been obtained!")
  1964.         ' Update the magnetic variation
  1965.         FixObtained.Text = "Fix Obtained"
  1966.     End Sub
  1967.  
  1968.     Private Sub GpsReceiver_FixQualityChanged(ByVal sender As Object, ByVal e As FixQualityEventArgs) Handles GpsReceiver.FixQualityChanged
  1969.         UpdateStatusBar("Satellite fix quality has changed")
  1970.  
  1971.         ' Update the magnetic variation
  1972.         FixQuality.Text = GpsReceiver.FixQuality.ToString
  1973.     End Sub
  1974.  
  1975. #End Region
  1976.  
  1977. #Region "  Demonstration of Satellite-Related GPS Events  "
  1978.     Private Sub GpsReceiver_SatelliteAzimuthChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteAzimuthChanged
  1979.         ' Update the list view associated with the specified satellite with the new azimuth
  1980.         SatelliteList.Items(e.Satellite.Index).SubItems(2).Text = e.Satellite.Azimuth.ToString
  1981.     End Sub
  1982.  
  1983.     Private Sub GpsReceiver_SatelliteElevationChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteElevationChanged
  1984.         ' Update the list view associated with the specified satellite with the new elevation
  1985.         SatelliteList.Items(e.Satellite.Index).SubItems(1).Text = e.Satellite.Elevation.ToString
  1986.     End Sub
  1987.  
  1988.     Private Sub GpsReceiver_SatelliteFixLost(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteFixLost
  1989.         SatelliteList.Items(e.Satellite.Index).BackColor = Color.FromArgb(60, 255, 0, 0)
  1990.     End Sub
  1991.  
  1992.     Private Sub GpsReceiver_SatelliteFixObtained(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteFixObtained
  1993.         SatelliteList.Items(e.Satellite.Index).BackColor = Color.FromArgb(60, 0, 255, 0)
  1994.     End Sub
  1995.  
  1996.     Private Sub GpsReceiver_SatellitePRCChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatellitePseudoRandomCodeChanged
  1997.         SatelliteList.Items(e.Satellite.Index).Text = e.Satellite.PseudoRandomCode
  1998.     End Sub
  1999.  
  2000.     Private Sub GpsReceiver_SatelliteSignalToNoiseRatioChanged(ByVal sender As Object, ByVal e As SatelliteEventArgs) Handles GpsReceiver.SatelliteSignalToNoiseRatioChanged
  2001.         SatelliteList.Items(e.Satellite.Index).SubItems(3).Text = e.Satellite.SignalToNoiseRatio.ToString & " (" & e.Satellite.SignalToNoiseRatio.Rating.ToString & ")"
  2002.     End Sub
  2003.  
  2004.     ' Handles three events: SatelliteActiveCountChanged, SatelliteFixCountChanged, SatelliteTrackedCountChanged
  2005.     Private Sub GpsReceiver_SatelliteCountChanged(ByVal sender As Object, ByVal e As SatelliteCountEventArgs) Handles GpsReceiver.SatelliteActiveCountChanged, GpsReceiver.SatelliteFixedCountChanged, GpsReceiver.SatelliteTrackedCountChanged
  2006.         Select Case e.Type
  2007.             Case SatelliteCountType.ActiveCount
  2008.                 ActiveSatellites.Text = e.Count
  2009.             Case SatelliteCountType.FixedCount
  2010.                 FixedSatellites.Text = e.Count
  2011.             Case SatelliteCountType.TrackedCount
  2012.                 TrackedSatellites.Text = e.Count
  2013.         End Select
  2014.     End Sub
  2015. #End Region
  2016.  
  2017. #Region "  Demonstration of Raw Sentence Processing  "
  2018.  
  2019.     ' Stores information about the current sentence
  2020.     Private CurrentSentence As String
  2021.     ' Returns True if the sentence was fully understood
  2022.     Private CurrentSentenceType As SentenceType
  2023.  
  2024.     ' Adds the specified sentence to the list
  2025.     Private Sub AddSentence()
  2026.         Select Case CurrentSentenceType
  2027.             Case SentenceType.Recognized
  2028.                 ' The sentence was processed successfully
  2029.                 RecognizedSentences.Items.Add(CurrentSentence)
  2030.                 RecognizedSentences.SelectedIndex = RecognizedSentences.Items.Count - 1
  2031.                 ' Prevent too many lines from being in the list box
  2032.                 If RecognizedSentences.Items.Count > 50 Then RecognizedSentences.Items.RemoveAt(0)
  2033.             Case SentenceType.Unrecognized
  2034.                 ' The sentence contained some corrupt data, or was proprietary to a specific device
  2035.                 UnrecognizedSentences.Items.Add(CurrentSentence)
  2036.                 UnrecognizedSentences.SelectedIndex = UnrecognizedSentences.Items.Count - 1
  2037.                 ' Prevent too many lines from being in the list box
  2038.                 If UnrecognizedSentences.Items.Count > 50 Then UnrecognizedSentences.Items.RemoveAt(0)
  2039.         End Select
  2040.     End Sub
  2041.  
  2042.     ' Handles two events: SentenceReceived and UnrecognizedSentenceReceived
  2043.     Private Sub GpsReceiver_SentenceReceived(ByVal sender As Object, ByVal e As SentenceEventArgs) Handles GpsReceiver.SentenceReceived, GpsReceiver.UnrecognizedSentenceReceived
  2044.         CurrentSentence = e.Sentence
  2045.         CurrentSentenceType = e.Type
  2046.         'Debug.WriteLine(e.Sentence)
  2047.         ' Now add the sentence
  2048.         AddSentence()
  2049.     End Sub
  2050.  
  2051.     ' Raised when someone clicks on the "Parse" button.
  2052.     Private Sub ParseButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParseButton.Click
  2053.         ' Parse the data which was entered into the text box
  2054.         Try
  2055.             GpsReceiver.Parse(ParsingText.Text)
  2056.         Catch ex As Exception
  2057.             Stop
  2058.         End Try
  2059.     End Sub
  2060. #End Region
  2061.  
  2062. #Region "  Demonstration of GPS device date/time information  "
  2063.  
  2064.     ' Updates the form with local date/time information
  2065.     Public Sub UpdateLocalTime()
  2066.         LocalTime.Text = Now.ToString
  2067.     End Sub
  2068.  
  2069.     ' Updates the form with GPS device's date/time information
  2070.     Public Sub UpdateGpsTime()
  2071.         ' NOTE: GPS devices send time in UTC.  We must convert it to local time
  2072.         UTCDateTime.Text = GpsReceiver.UtcDateTime.ToLocalTime.ToString
  2073.     End Sub
  2074.  
  2075.     ' Update the local time to show the comparison between local time and the time obtained from the GPS receiver
  2076.     Private Sub LocalTimeTimer_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles LocalTimeTimer.Elapsed
  2077.         UpdateLocalTime()
  2078.     End Sub
  2079.  
  2080.     ' Raised whenever the GPS device reports a new date/time
  2081.     ' NOTE: Several devices stop sending this information as soon as a fix is obtained!
  2082.     Private Sub GpsReceiver_UTCDateTimeChanged(ByVal sender As Object, ByVal e As DateTimeEventArgs) Handles GpsReceiver.UtcDateTimeChanged
  2083.         UpdateStatusBar("GPS date/time has changed.")
  2084.  
  2085.         ' Update the magnetic variation
  2086.         UpdateGpsTime()
  2087.     End Sub
  2088. #End Region
  2089.  
  2090. #Region "  Demonstration of Waypoints  "
  2091.  
  2092.     Private CurrentWaypoint As Waypoint
  2093.  
  2094.     ' Raised when the "Refresh" button is clicked on the Waypoints tab
  2095.     Private Sub DownloadWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadWaypointButton.Click
  2096.         ' Retrieve the latest waypoints from the device (asynchronously)
  2097.         Try
  2098.             GpsReceiver.Waypoints.Refresh(True)
  2099.         Catch ex As GpsException
  2100.             MessageBox.Show(ex.ToString, "Unable to Load Waypoints", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
  2101.         End Try
  2102.     End Sub
  2103.  
  2104.     ' Raised when a new waypoint is selected
  2105.     Private Sub WaypointList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaypointList.SelectedIndexChanged
  2106.         ' Enable the Edit button
  2107.         EditWaypointButton.Enabled = True
  2108.     End Sub
  2109.  
  2110.     ' Raised when the "New..." button is clicked on the Waypoints tab
  2111.     Private Sub NewWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewWaypointButton.Click
  2112.         ' Make a new waypoint form
  2113.         Dim WaypointForm As New NewWaypointForm
  2114.         ' Tell the form what kind of GPS device we're using
  2115.         WaypointForm.Device = GpsReceiver.Device
  2116.         ' Show the form
  2117.         WaypointForm.Show()
  2118.     End Sub
  2119.  
  2120.     ' Raised when the "Edit..." button is clicked on the Waypoints tab
  2121.     Private Sub EditWaypointButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditWaypointButton.Click
  2122.         ' Get the waypoint that was clicked 
  2123.         Dim SelectedWaypoint As Waypoint = GpsReceiver.Waypoints(WaypointList.SelectedItems(0).Text)
  2124.         ' Make a new editor form
  2125.         Dim EditForm As New EditWaypointForm
  2126.         ' Tell this form to edit the selected waypoint
  2127.         EditForm.Waypoint = SelectedWaypoint
  2128.         ' Show the form
  2129.         EditForm.Show()
  2130.     End Sub
  2131.  
  2132.     ' Raised when a waypoint is double-clicked
  2133.     Private Sub WaypointList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WaypointList.DoubleClick
  2134.         ' Is anything selected?
  2135.         If WaypointList.SelectedItems.Count = 0 Then Exit Sub
  2136.         ' Open the selected item
  2137.         EditWaypointButton_Click(sender, e)
  2138.     End Sub
  2139.  
  2140.     Private Sub UpdateOriginWaypoint()
  2141.         'Me.OriginWaypoint.Text = e.Waypoint.ToString
  2142.     End Sub
  2143.  
  2144.     Private Sub UpdateDestinationWaypoint()
  2145.         'Me.DestinationWaypoint.Text = e.Waypoint.ToString
  2146.     End Sub
  2147.  
  2148.     Private Sub UpdateClearWaypointList()
  2149.         DownloadWaypointButton.Enabled = False
  2150.         WaypointList.Items.Clear()
  2151.     End Sub
  2152.  
  2153.     Private Sub UpdateCompleteWaypointList()
  2154.         DownloadWaypointButton.Enabled = True
  2155.     End Sub
  2156.  
  2157.     ' Adds the specified sentence to the list
  2158.     Private Sub AddWaypoint()
  2159.         Dim WaypointListItem As ListViewItem
  2160.         ' Does this waypoint already exist in the list view?
  2161.         If WaypointItemExists(CurrentWaypoint.Name) Then
  2162.             ' Yes. Update the existing list view item
  2163.             WaypointListItem = GetWaypointItem(CurrentWaypoint.Name)
  2164.             WaypointListItem.SubItems(0).Text = CurrentWaypoint.Latitude.ToString
  2165.             WaypointListItem.SubItems(1).Text = CurrentWaypoint.Longitude.ToString
  2166.             WaypointListItem.SubItems(2).Text = CurrentWaypoint.Symbol.ToString
  2167.             WaypointListItem.SubItems(3).Text = CurrentWaypoint.Description
  2168.         Else
  2169.             ' No. Make a new list view item
  2170.             WaypointListItem = WaypointList.Items.Add(CurrentWaypoint.Name)
  2171.             WaypointListItem.SubItems.Add(CurrentWaypoint.Latitude.ToString)
  2172.             WaypointListItem.SubItems.Add(CurrentWaypoint.Longitude.ToString)
  2173.             WaypointListItem.SubItems.Add(CurrentWaypoint.Symbol.ToString)
  2174.             WaypointListItem.SubItems.Add(CurrentWaypoint.Description)
  2175.         End If
  2176.     End Sub
  2177.  
  2178.     ' Raised just before the collection of waypoints is re-downloaded
  2179.     Private Sub GpsReceiver_WaypointDownloadBegins(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.WaypointDownloadBegins
  2180.         UpdateClearWaypointList()
  2181.     End Sub
  2182.  
  2183.     ' Returns True if the waypoint name currently exists in the WaypointList list view
  2184.     Private Function WaypointItemExists(ByVal name As String) As Boolean
  2185.         Dim WaypointListViewItem As ListViewItem
  2186.         For Each WaypointListViewItem In WaypointList.Items
  2187.             If WaypointListViewItem.Text = name Then Return True
  2188.         Next
  2189.     End Function
  2190.  
  2191.     ' Returns the waypoint list item associated with the specified waypoint name
  2192.     Private Function GetWaypointItem(ByVal name As String) As ListViewItem
  2193.         Dim WaypointListViewItem As ListViewItem
  2194.         For Each WaypointListViewItem In WaypointList.Items
  2195.             If WaypointListViewItem.Text = name Then Return WaypointListViewItem
  2196.         Next
  2197.     End Function
  2198.  
  2199.     ' Raised when one waypoint has been downloaded from the GPS device
  2200.     Private Sub GpsReceiver_WaypointDownloaded(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.WaypointDownloaded
  2201.         ' Set the current waypoint
  2202.         CurrentWaypoint = e.Waypoint
  2203.         ' And add it to the List View
  2204.         AddWaypoint()
  2205.     End Sub
  2206.  
  2207.     ' Raised when the last waypoint has been downloaded from the device
  2208.     Private Sub GpsReceiver_WaypointDownloadEnds(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.WaypointDownloadEnds
  2209.         ' Re-enable the Refresh button
  2210.         UpdateCompleteWaypointList()
  2211.     End Sub
  2212.  
  2213.     Private Sub GpsReceiver_DestinationWaypointArrivalAlarm(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.DestinationWaypointArrivalAlarm
  2214.         Stop
  2215.     End Sub
  2216.  
  2217.     Private Sub GpsReceiver_DestinationWaypointChanged(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.DestinationWaypointChanged
  2218.         ' Update the destination waypoint
  2219.         '        Me.Invoke(New WaypointEventHandler(AddressOf UpdateDestinationWaypoint))
  2220.     End Sub
  2221.  
  2222.     Private Sub GpsReceiver_OriginWaypointChanged(ByVal sender As Object, ByVal e As StormSource.Gps.WaypointEventArgs) Handles GpsReceiver.OriginWaypointChanged
  2223.         ' Update the origin waypoint
  2224.         '    Me.Invoke(New WaypointEventHandler(AddressOf UpdateOriginWaypoint))
  2225.     End Sub
  2226. #End Region
  2227.  
  2228. #Region "  Demonstration of GPS Device Identification  "
  2229.  
  2230.     ' Raised when GpsReceiver.NET is able to identify this device uniquely from any other device
  2231.     Private Sub GpsReceiver_DeviceIdentified(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.DeviceIdentified
  2232.         UpdateDeviceInformation()
  2233.     End Sub
  2234.  
  2235.     Private Sub GpsReceiver_ProtocolChanged(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.ProtocolChanged
  2236.         UpdateDeviceInformation()
  2237.     End Sub
  2238.  
  2239.     Private Sub GpsReceiver_ManufacturerChanged(ByVal sender As Object, ByVal e As StormSource.Gps.DeviceEventArgs) Handles GpsReceiver.ManufacturerChanged
  2240.         UpdateDeviceInformation()
  2241.     End Sub
  2242.  
  2243.     Private Sub GpsReceiver_ProductNameChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GpsReceiver.ProductNameChanged
  2244.         UpdateDeviceInformation()
  2245.     End Sub
  2246.  
  2247.     Private Sub GpsReceiver_BatteryLifeChanged(ByVal sender As Object, ByVal e As StormSource.Gps.TimeSpanEventArgs) Handles GpsReceiver.BatteryLifeChanged
  2248.         UpdateDeviceInformation()
  2249.     End Sub
  2250.  
  2251.     ' Updates the form on the form's thread
  2252.     Private Sub UpdateDeviceInformation()
  2253.         Try
  2254.             ' Update device indentification information
  2255.             Me.Manufacturer.Text = GpsReceiver.Device.Manufacturer.ToString
  2256.             Me.DeviceName.Text = GpsReceiver.Device.Name
  2257.             Me.SoftwareVersion.Text = GpsReceiver.Device.SoftwareVersion
  2258.             Me.Protocol.Text = GpsReceiver.Device.Protocol.ToString
  2259.             Me.BatteryLife.Text = GpsReceiver.Device.BatteryLife.ToString
  2260.             ' Update waypoint capabilities
  2261.             Me.WaypointAddressCheckbox.Checked = GpsReceiver.Device.SupportsWaypointAddress
  2262.             Me.WaypointAltitudeCheckbox.Checked = GpsReceiver.Device.SupportsWaypointAltitude
  2263.             Me.WaypointCityCheckbox.Checked = GpsReceiver.Device.SupportsWaypointCity
  2264.             Me.WaypointColorCheckbox.Checked = GpsReceiver.Device.SupportsWaypointColor
  2265.             Me.WaypointCommentCheckbox.Checked = GpsReceiver.Device.SupportsWaypointComment
  2266.             Me.WaypointCountryCheckbox.Checked = GpsReceiver.Device.SupportsWaypointCountry
  2267.             Me.WaypointIntersectingRoadCheckbox.Checked = GpsReceiver.Device.SupportsWaypointIntersectingRoad
  2268.             Me.WaypointDepthCheckbox.Checked = GpsReceiver.Device.SupportsWaypointDepth
  2269.             Me.WaypointDisplayModeCheckbox.Checked = GpsReceiver.Device.SupportsWaypointDisplayMode
  2270.             Me.WaypointFacilityNameCheckbox.Checked = GpsReceiver.Device.SupportsWaypointFacility
  2271.             Me.WaypointStateCheckbox.Checked = GpsReceiver.Device.SupportsWaypointState
  2272.             Me.WaypointSymbolCheckbox.Checked = GpsReceiver.Device.SupportsWaypointSymbol
  2273.  
  2274.             ' To make features stand out more, enable/disable the checkbox
  2275.             Me.WaypointAddressCheckbox.Enabled = Me.WaypointAddressCheckbox.Checked
  2276.             Me.WaypointAltitudeCheckbox.Enabled = Me.WaypointAltitudeCheckbox.Checked
  2277.             Me.WaypointCityCheckbox.Enabled = Me.WaypointCityCheckbox.Checked
  2278.             Me.WaypointColorCheckbox.Enabled = Me.WaypointColorCheckbox.Checked
  2279.             Me.WaypointColorComboBox.Enabled = Me.WaypointColorCheckbox.Checked
  2280.             Me.WaypointCommentCheckbox.Enabled = Me.WaypointCommentCheckbox.Checked
  2281.             Me.WaypointCountryCheckbox.Enabled = Me.WaypointCountryCheckbox.Checked
  2282.             Me.WaypointIntersectingRoadCheckbox.Enabled = Me.WaypointIntersectingRoadCheckbox.Checked
  2283.             Me.WaypointDepthCheckbox.Enabled = Me.WaypointDepthCheckbox.Checked
  2284.             Me.WaypointDisplayModeCheckbox.Enabled = Me.WaypointDisplayModeCheckbox.Checked
  2285.             Me.WaypointDisplayModeComboBox.Enabled = Me.WaypointDisplayModeCheckbox.Checked
  2286.             Me.WaypointFacilityNameCheckbox.Enabled = Me.WaypointFacilityNameCheckbox.Checked
  2287.             Me.WaypointStateCheckbox.Enabled = Me.WaypointStateCheckbox.Checked
  2288.             Me.WaypointSymbolCheckbox.Enabled = Me.WaypointSymbolCheckbox.Checked
  2289.             Me.WaypointSymbolComboBox.Enabled = Me.WaypointSymbolCheckbox.Checked
  2290.             ' Update available waypoint symbols
  2291.             WaypointSymbolComboBox.Items.Clear()
  2292.             WaypointSymbolComboBox.Items.AddRange(GpsReceiver.Device.GetSymbols)
  2293.             WaypointSymbolComboBox.SelectedIndex = 0
  2294.             ' Update available waypoint colors
  2295.             WaypointColorComboBox.Items.Clear()
  2296.             WaypointColorComboBox.Items.AddRange(GpsReceiver.Device.GetColors)
  2297.             WaypointColorComboBox.SelectedIndex = 0
  2298.             ' Update available waypoint display modes
  2299.             WaypointDisplayModeComboBox.Items.Clear()
  2300.             WaypointDisplayModeComboBox.Items.AddRange(GpsReceiver.Device.GetDisplayModes)
  2301.             WaypointDisplayModeComboBox.SelectedIndex = 0
  2302.             ' Enable/disable features based on the protocol
  2303.             Me.PowerOffButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
  2304.             Me.NewWaypointButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
  2305.             Me.DownloadWaypointButton.Enabled = (GpsReceiver.Device.Protocol = StormSource.Gps.Protocol.GarminBinary)
  2306.         Catch ex As Exception
  2307.         End Try
  2308.     End Sub
  2309.  
  2310. #End Region
  2311.  
  2312. #Region "  Demonstration of powering off a GPS device  "
  2313.     ' NOTE: Currently, the PowerOff() method is only supported when using the Garmin« 
  2314.     '       binary protocol. Set your device to use the Garmin protocol before using this method.
  2315.     Private Sub PowerOffButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PowerOffButton.Click
  2316.         ' Confirm that the device should be powered off
  2317.         Select Case MessageBox.Show("When you turn off the GPS device, you will need to turn it back on manually.  Do you still want to power off the device?", "GPS Device Power-Off", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
  2318.             Case DialogResult.Yes
  2319.                 Try
  2320.                     ' Try to power off the device.  If the device is not using the Garmin« protocol, this will fail
  2321.                     GpsReceiver.Device.PowerOff()
  2322.                 Catch ex As GpsException
  2323.                     ' The power-off failed
  2324.                     MessageBox.Show("The device must be set to the Garmin« protocol in order for it to be shut off.  Please change the protocol and try again.", "Unable to Power Off", MessageBoxButtons.OK, MessageBoxIcon.Warning)
  2325.                 End Try
  2326.         End Select
  2327.     End Sub
  2328. #End Region
  2329.  
  2330. #Region "  Demonstration of Viewer Rotation  "
  2331.  
  2332.     Private RotateThread As System.Threading.Thread
  2333.  
  2334.     Private Sub UpdateRotation()
  2335.         Do While True
  2336.             ' Increase the rotation angle by half a degree
  2337.             SatelliteViewer.Bearing += 0.4
  2338.             ' Sleep for 50ms
  2339.             RotateThread.Sleep(30)
  2340.         Loop
  2341.     End Sub
  2342.  
  2343.     Private Sub FlickerFreeDemoCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlickerFreeDemoCheckBox.CheckedChanged
  2344.         If FlickerFreeDemoCheckBox.Checked Then
  2345.             ' Enable the rotation
  2346.             RotateThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf UpdateRotation))
  2347.             RotateThread.Name = "Demo of Rotating Satellite Viewer"
  2348.             RotateThread.IsBackground = True
  2349.             RotateThread.Start()
  2350.         Else
  2351.             ' Disable the rotation
  2352.             If Not RotateThread Is Nothing Then
  2353.                 RotateThread.Abort()
  2354.                 RotateThread = Nothing
  2355.             End If
  2356.             ' Reset the rotation to zero
  2357.             SatelliteViewer.Bearing = GpsReceiver.Bearing.DecimalDegrees
  2358.         End If
  2359.     End Sub
  2360.  
  2361. #End Region
  2362.  
  2363. #Region "  Demonstration of Viewer Customization  "
  2364.  
  2365.     Private Sub ShowPrcCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowPrcCheckBox.CheckedChanged
  2366.         SatelliteViewer.IsSatellitePrcVisible = ShowPrcCheckBox.Checked
  2367.     End Sub
  2368.  
  2369.     Private Sub ShowCompassCheckBox_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowCompassCheckBox.CheckedChanged
  2370.         SatelliteViewer.IsCompassVisible = ShowCompassCheckBox.Checked
  2371.     End Sub
  2372. #End Region
  2373.  
  2374. #Region "  (Miscellaneous Form Events)  "
  2375.  
  2376.     ' Stores information about current activity going on with the GPS device
  2377.     Public CurrentStatus As String
  2378.  
  2379.     ' Used to update the status bar
  2380.     Public Sub UpdateStatusBar(ByVal description As String)
  2381.         StatusBar.Text = description
  2382.     End Sub
  2383.  
  2384.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  2385.         ' Bind the SatelliteViewer to the GPS receiver
  2386.         SatelliteViewer.Receiver = GpsReceiver
  2387.     End Sub
  2388.  
  2389.     Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
  2390.         ' Stop GPS services
  2391.         GpsReceiver.Stop()
  2392.         ' Clean up by disposing of resources
  2393.         LocalTimeTimer.Dispose()
  2394.         GpsReceiver.Dispose()
  2395.     End Sub
  2396.  
  2397. #End Region
  2398. End Class
  2399.