New Post: VBA GetIntersection Crash

Private Sub Command2_Click()
    Dim sf1 As Shapefile
    Dim sf2 As Shapefile
    Dim sf3 As Shapefile
    
    Set sf1 = Me.Map1.GetObject(0)
    Set sf2 = Me.Map1.GetObject(1)

    Set sf3 = sf1.GetIntersection(False, sf2, False, SHP_NULLSHAPE) 'Crashes
    Me.Map1.AddLayer sf3, True
    
    Me.Map1.RemoveLayer (0)
    Me.Map1.RemoveLayer (1)
    
End Sub