Dim objApp As New MapPoint.Application
Dim objMap As MapPoint.Map
Dim objLoc As MapPoint.Location
Dim objShape As MapPoint.Shape
  'Set up application and get a location object
Set objMap = objApp.ActiveMap
objApp.Visible = True
objApp.UserControl = True
  Set objLoc = objApp.ActiveMap.GetLocation(0, 0)

'Create a shape at this location, zoom to this location
Set objMap.Location = objLoc
Set objShape = objMap.Shapes.AddShape(geoShapeRectangle, objLoc, 50, 30)
objShape.Name = "Test123"
MsgBox objShape.Name