Не модальная форма в модальной - VB

Private Const SWP_NOMOVE = 2 
Private Const SWP_NOSIZE = 1 
Private Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE 
Private Const HWND_TOPMOST = -1 
Private Const HWND_NOTOPMOST = -2 
 
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 
 
Public Function SetTopMost(p_hWnd As Long, p_blnTopMost As Boolean)
 
If p_blnTopMost Then
 
Call SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS) 
 
Else
 
Call SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS) 
 
End If
End Function