How do you make a form always stay on top of another form?

Thanks,

Mike

1. Open a new module by /Project/Add Module/
2. Put the following code in the module:

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 Sub StayOnTop(frmForm As Form, fOnTop As Boolean)

  Const HWND_TOPMOST = -1
  Const HWND_NOTOPMOST = -2

  Dim lState As Long
  Dim iLeft As Integer, iTop As Integer, iWidth As Integer, iHeight As
Integer

  With frmForm
    iLeft = .Left / Screen.TwipsPerPixelX
    iTop = .Top / Screen.TwipsPerPixelY
    iWidth = .Width / Screen.TwipsPerPixelX
    iHeight = .Height / Screen.TwipsPerPixelY
  End With

  If fOnTop Then
    lState = HWND_TOPMOST
  Else
    lState = HWND_NOTOPMOST
  End If
  Call SetWindowPos(frmForm.hwnd, lState, iLeft, iTop, iWidth, iHeight,
0)

End Sub

3. Make a call from the form you want to put on top:

        Call StayOnTop(frmForm1, True)

Hope this helps.

Jianming She

I just finished up a class on Mastering Visual Basic 5.0, and they used a
Windows API call to get this to happen.  I don't have the exact code sitting
in front of me, but if you are interested let me know and I'll dig it up.

Tom Duff

--

             \|/
            (o o)
--------oOO--(_)--OOo--------------
 Allen Sizemore & Yoli Chavira

 http://www.ionet.net/~panther        
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~