Private Sub Check1_Click() Dim res As Long If Check1.Value = 1 Then res = SetWindowPos(Me.hwnd, HWND_TOPMOST, _ 0, 0, 0, 0, Flags) Else res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, _ 0, 0, 0, 0, Flags) End If End Sub