前段显示

我不知道你说的是啥，我理解应该是某个程序窗口始终置顶，也就是说这程序窗口打开后，不管你再点击什么，它都不会被掩盖，始终显示在前面。

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