no, io non ho provato.
ma tu hai fatto in questa maniera?:
codice:
Public Sub chkAlwaysOnTop_Click() 
   Dim CAPT As String 
   Dim RES As Long 

   CAPT = XLAPP.Caption 
   RES = FindWindow(vbNullString, CAPT) 

   Window_SetAlwaysOnTop RES, chkAlwaysOnTop.Value 
End Sub