Variable type Compiler Error Please Help

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
 
Module Module9
 
    Sub Main()
 
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
 
        Dim PmiLayer As Integer = 69
	Dim SketchLayer As Integer = 30
 
        Dim displayModification1 As DisplayModification
	Dim displayModification2 As DisplayModification
 
        displayModification1 = theSession.DisplayManager.NewDisplayModification()
	displayModification1.NewLayer = PmiLayer
 
	displayModification2 = theSession.DisplayManager.NewDisplayModification()
	displayModification2.NewLayer = SketchLayer
 
        'displayModification1.Apply(workPart.Annotations.Centerlines.ToArray)
	'displayModification1.Apply(workPart.Annotations.Datums.ToArray)
 
 
	THIS LINE IS WHERE THE ERROR IS THROWN 
        displayModification1.Apply(theSession.Parts.Work.PmiManager.Pmis.ToArray)
 
 
	displayModification2.Apply(theSession.Parts.Work.Sketches.ToArray)
 
        'displayModification2.Apply(theSession.Parts.Work.Features.ToArray)
 
 
        displayModification1.Dispose()
 
    End Sub
 
End Module