Bringtofront/windowontop?

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)

Dim rtn
rtn = SetWindowPos(OnTop.hwnd, -1, 0, 0, 0, 0, 3)

Hvor -1 selvfølgelig er en Boolean der angiver om formen "OnTop" skal være OnTop eller NotOnTop.

True & False vil nok være bedre at bruge så man senere ved hvad den gør.. (så kan man da se det)