Besoin d'aide en VB6

'Fonctions
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
                                                    ByVal hWndInsertAfter As Long, _
                                                    ByVal x As Long, _
                                                    ByVal y As Long, _
                                                    ByVal cx As Long, _
                                                    ByVal cy As Long, _
                                                    ByVal wFlags As Long) As Long

Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2


'------------------------------------------------------------------------------------------------
'
' Permet de placer la fenêtre au premier plan
'
'------------------------------------------------------------------------------------------------
Private Function PositionForm(ByVal Feuille As Form, Optional PrePlan As Boolean = True) As Long
 
  Dim lgConst As Long

  If PrePlan Then
    lgConst = HWND_TOPMOST
  Else
    lgConst = HWND_NOTOPMOST
  End If
  PositionForm = SetWindowPos(Feuille.hwnd, lgConst, _
                  Feuille.Left \ Screen.TwipsPerPixelX, _
                  Feuille.Top \ Screen.TwipsPerPixelY, _
                  Feuille.Width \ Screen.TwipsPerPixelX, _
                  Feuille.Height \ Screen.TwipsPerPixelY, 0)
                  
End Function


'Place au premier plan la fenêtre
PositionForm TabForms(NbFrmAlerte)

Public TabForms() As FrmAlerte


ReDim Preserve TabForms(NbFrmAlerte)


TabForms(1).LabMessage = Msg