Container property

Returns the object that contains the specified embedded map. If the container does not support automation, or if the map is not embedded, this property returns "Nothing". Read-only.

Applies to

Objects:  Map

Syntax

object.Container

Parameters

Part	Description
object	Required. An expression that returns a Map object.

Example

    Option Explicit


  Public myApp As MapPoint.Application
  Public myMap As MapPoint.Map


  Private Sub Command1_Click()


  If (TypeName(myMap.Container) = "Nothing") Then
    MsgBox "MapPoint is not embedded in a container."
    Else
    MsgBox "We're embedded in " & myMap.Container.Name
    End If


  End Sub


  Private Sub Form_Load()


  Set myApp = CreateObject("MapPoint.Application.NA")
  Set myMap = myApp.ActiveMap


  End Sub

To check if the Map is running in the Control

    If TypeName(objMap.Container) = "MappointControl" Then
    MsgBox "This is in the Control"
    objControl = objMap.Container
  End If