窗体"通用"

Private 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

Private Const a& = -1 '置顶

Private Const b& = &H1

Private Const c& = &H2

Private Const d& = -2 '正常

Private Sub Form_Load()

SetWindowPos Me.hWnd, a, 0, 0, 0, 0, b Or c

End Sub

'Checkbox的值

Private Sub Check1_Click()

If Check1.Value = 2 Then SetWindowPos Me.hWnd, a, 0, 0, 0, 0, b Or c

If Check1.Value = 1 Then SetWindowPos Me.hWnd, a, 0, 0, 0, 0, b Or c

If Check1.Value = 0 Then SetWindowPos Me.hWnd, d, 0, 0, 0, 0, b Or c

End Sub