With New frmObjectCard(Me.ObjectBindingSource.Current)

            .ShowDialog(Me)

            .Dispose()
End With

Public Sub New(ByVal CurrentObject As DataRowView)

        InitializeComponent()

        Me.SetMap(CurrentObject)

End Sub

Private Sub SetMap(Data As DataRowView)
        Dim MapControl As Map = New Map(Data("MapX"), Data("MapY"), Data("ObjectName"))
        Me.MapPanelControl.Controls.Add(MapControl)
        MapControl.Dock = DockStyle.Fill
End Sub

<System.Runtime.InteropServices.ComVisibleAttribute(True)>
Public Class Map
    Private MapX As Decimal
    Private MapY As Decimal
    Private CaptionMsg As String

    Public Sub New(ByVal MapX As Decimal, ByVal MapY As Decimal, ByVal CaptionMsg As String)
        Me.MapX = MapX
        Me.MapY = MapY
        Me.CaptionMsg = CaptionMsg

        InitializeComponent()

        Me.WebBrowser.ObjectForScripting = Me
        Me.WebBrowser.DocumentText = My.Resources.GoogleMapSample
    End Sub
End Class