View Single Post

  #15 (permalink)  
Old 04-19-2004
yvdp yvdp is offline
Junior Member
Yellow Belt
 
Join Date: Apr 2004
Posts: 12
next problem
runtime error 429:
ActiveX component can't create object

i'm using this code:
Dim omap As MapPoint.Map
Set omap = GetObject(, "MapPoint.Application").ActiveMap

Dim oPPSet As MapPoint.DataSet
Dim oPin As MapPoint.Pushpin
Dim oDS As MapPoint.DataSets

Set oPin = omap.AddPushpin(omap.FindResults( _
txtKaart.Text)(1))

Set oDS = omap.DataSets
Set oPPSet = omap.DataSets.AddPushpinSet("Deliveries")
oPin.MoveTo oPPSet

it higlights the "set omap..." sentence
my mappoint control is ok, what's wrong?
__________________
greetz
Reply With Quote