MS

app/DD-Record-Organiser/frmGoogle.vb

@@ -85,30 +85,29 @@ Public Class frmGoogle
         VectorLayer.Data = storage
 
     End Sub
-
     Private Sub MapControl1_MapItemClick(sender As Object, e As MapItemClickEventArgs) Handles MapControl1.MapItemClick
-        Dim item As MapPushpin = e.Item
-        Dim row As DataRow = item.Information
-        Dim attrs As MapItemAttributeCollection = item.Attributes
-
-        ListBox1.Items.Clear()
-        ListBox1.Items.Add(row.Item("Supplier_number"))
-        ListBox1.Items.Add(row.Item("Supplier_name"))
-        ListBox1.Items.Add(row.Item("MP_Number"))
+        Try
+            Dim item As MapPushpin = e.Item
+            Dim row As DataRow = item.Information
+            Dim attrs As MapItemAttributeCollection = item.Attributes
+            ListBox1.Items.Clear()
+            ListBox1.Items.Add(row.Item("Supplier_number"))
+            ListBox1.Items.Add(row.Item("Supplier_name"))
+            ListBox1.Items.Add(row.Item("MP_Number"))
+        Catch ex As Exception
 
+        End Try
     End Sub
 
     Private Sub MapControl1_DrawMapItem(sender As Object, e As DrawMapItemEventArgs) Handles MapControl1.DrawMapItem
         Dim colorOuter As Color = Color.Green
         Dim colorInner As Color = Color.Green
         Dim colorInnerHighlight As Color = Color.Red
-
         e.Fill = Color.Red
     End Sub
 
     Public Class MapItemFactory
         Inherits DefaultMapItemFactory
-
         Protected Overrides Sub InitializeItem(ByVal item As MapItem, ByVal obj As Object)
             MyBase.InitializeItem(item, obj)
             Dim rect As MapRectangle = TryCast(item, MapRectangle)