非常简单的窗体置前

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
    
    Const HWND_TOPMOST = -1
    Const HWND_NOTOPMOST = -2
    Const SWP_NOSIZE = &H1
    Const SWP_NOMOVE = &H2


Public Sub SetTop(Hwnds As Long, Dotop As Boolean)
    Flags = SWP_NOMOVE Or SWP_NOSIZE
    
    If Dotop = True Then


TypeA = HWND_TOPMOST
Else


    If Dotop = False Then


TypeA = HWND_NOTOPMOST
End If
End If

SetWindowPos Hwnds, TypeA, 0, 0, 0, 0, Flags

End Sub

'示例
Private Sub Form_Load()
    SetTop hwnd, True
End Sub