Dynamically add Map Control to a Visual Basic 6.0 application

Summary

Procedure

1. Create a new Visual Basic 6.0 application.
2. Create an object reference as VBControlExtender
   
   

   Code:
   Option Explicit
   
   Private mapCtl As VBControlExtender

   
   
3. Add a Button control to the form. In the button's click event paste the following code:
   
   

   Code:
   Private Sub Command1_Click()
   
     'Add MapObjects license key to the control with ProgId  
      Licenses.Add "MapObjects2.Map.1", "Copyright (c) 1999 ESRI, Inc."
      
     'Load Map control (mMap) to the form
      Set mapCtl = Form1.Controls.Add("MapObjects2.Map.1", "mMap")
      
     'Show Map Control
      mapCtl.Visible = True
      
     'Use Object keyword to access the properties and methods of Map Control
      mapCtl.object.BackColor = moRed
   
   End Sub