I am trying to insert an image onto a drawing and then move them to different locations. It insert both images correctly but then moves the first image twice. Can someone tell me what is wrong with this code?

Sub main()

Dim swApp As SldWorks.SldWorks

Dim Part As ModelDoc2

Dim SkPicture As SketchPicture

Dim SkPicture2 As SketchPicture

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Set SkPicture = Part.SketchManager.InsertSketchPicture("filepath\filname.PNG")

SkPicture.SetOrigin 0.5, 0.3

Set SkPicture2 = Part.SketchManager.InsertSketchPicture("filepath\filname.PNG")
SkPicture2.SetOrigin 0.6, 0.4

End Sub