InsertMarker example for Visual Basic

Dim RasterIO As LEADRasterIO
         Private Sub LoadMarker_Click()
Marker1.Load "c:\ image1.jpg", 0
Marker2.Load "c:\ image2.tif", 0
Marker1.GetMarker 0
       Marker2.Type = Marker1.Type
       Marker2.ElementCount = Marker1.ElementCount
       For i = 0 To Marker1.Count - 1
              Marker2.Element (i) = Marker1.Element(i) 
       Next i
       Marker2.InsertMarker 0
End Sub