|
Sure, this code will add the MapPoint control to form1. (You still need to have the Control added to your project.)
'General Declarations Section
Dim WithEvents MPC As MappointControl
Private Sub Command1_Click()
Set MPC = Controls.Add("Mappoint.Control.9", "MappointControl1", Form1)
MPC.Move 1, 1, Form1.Width - 100, Form1.Height - 100
MPC.Visible = True
Set objMap = MPC.NewMap(geoMapNorthAmerica)
End Sub |