prova a sostituire
concodice:AlwaysOnTop(Form1, True) 'e AlwaysOnTop(Form1, False)
Se è li che ti segnala l'errore, altrimenti facci sapere dove ti da l'errore, sarà più facile aiutarticodice:AlwaysOnTop Form1, True 'e AlwaysOnTop Form1, False