Public Sub GPIntersect()
    'proccess an intersect of dimensions and anno for get main dimension lines
    ' Create the Geoprocessor object
    Dim GP As Object
    Set GP = CreateObject("esriGeoprocessing.GpDispatch.1")
    ' Load required toolboxes...
    GP.AddToolbox "C:/Program Files/ArcGIS/ArcToolbox/Toolboxes/Analysis Tools.tbx"

    ' Process: Intersect...
    GP.Intersect_analysis "'" & FC1 & "' '';'" & FC2 & "' ''", Output, "ALL", "", "INPUT"
          
End Sub