Private Sub Check1_Click()
Dim lFlag As Long
If Check1.Value = 1 Then
    'Form her zaman üstte
    lFlag = HWND_TOPMOST
    SetWindowPos Form1.hwnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
Else
    'Form normal
    lFlag = HWND_NOTOPMOST
    SetWindowPos Form1.hwnd, lFlag, Form1.Left / Screen.TwipsPerPixelX, Form1.Top / Screen.TwipsPerPixelY, Form1.Width / Screen.TwipsPerPixelX, Form1.Height / Screen.TwipsPerPixelY, SWP_NOACTIVATE Or SWP_SHOWWINDOW
End If
End Sub