VB的前端顯示（置頂）源碼
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
