Always on top

form1.show modal

nej det er ikke optimalt.

lav et modul.

tilføj :
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 Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8

Public Sub SetFormTopmost(TheForm As Form)

SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE

End Sub





så kan du kalde den med :
SetFormTopmost frmMyForm.

hvordan slår du det så fra igen

slå  always on top til/fra:

\'------------------------------------------ Module1 ------------------------------------------
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 = -&H1
Const HWND_NOTOPMOST = -&H2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2

Function AlwaysOnTop(Form As Form, Optional TopMost As Boolean = True)
  AlwaysOnTop = SetWindowPos(Form.hWnd, IIf(TopMost, HWND_TOPMOST, HWND_NOTOPMOST), 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Function
\'------------------------------------------ Module1 ------------------------------------------


\'-------------------------------- Form1 --------------------------------
Private Sub Check1_Click()
  If Check1.Value = 1 Then AlwaysOnTop Me, True
  If Check1.Value = 0 Then AlwaysOnTop Me, False
End Sub
\'-------------------------------- Form1 --------------------------------

tak for pts.