Form on Top

[crptcblade]

I'm trying to make an intro form like in the progs of the MS Office Suite. But the intro form is sent to the back.
How do i get it to show up on top instead??

Form.Show vbModal

or you can do this

Private Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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 Sub Form_Load()
    Call SetWindowPos(Me.hWnd, (-1), 0,0,0,0, 3)
End Sub

[Edited by denniswrenn on 09-01-2000 at 10:20 PM]

Use the SetWindowPos API:

Put this in a module:

Public Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (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 Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1

Public Const HWND_TOPMOST = -1

Public Sub MakeAlwaysOnTop(ByVal hWindow As Long)
    SetWindowPos hWindow, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

And this in the Form_Load() event:

Private Sub Form_Load()
    MakeAlwaysOnTop Me.hWnd
End Sub

Hope this helps.