Moving PMI to New Layer HELP!

Option Strict Off
Imports System
Imports System.Collections.Generic
Imports NXOpen
 
Module Module9
 
    Sub Main()
 
	Dim PmiCollection As NXOpen.Annotations.Pmi
        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim lw As ListingWindow = theSession.ListingWindow
	Dim allpmi As Annotations.PmiCollection = workPart.PmiManager.Pmis
 
        Dim sketchLayer As Integer = 33
 
        Dim displayModification1 As DisplayModification
 
        displayModification1 = theSession.DisplayManager.NewDisplayModification()
 
	for each temp as NXOpen.Annotations.Annotation.Layer in allpmi
		displayModification1.Apply(temp.ToArray)
	next
 
	displayModification1.NewLayer = sketchLayer
 
        displayModification1.Dispose()
 
    End Sub
 
End Module