Question

vb如何实现窗口的置顶呢？也就是如何最上层显示呢？

Answer 1

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 Sub Form_Load()
'窗口置顶代码
SetWindowPos me.HWnd, -1, 0, 0, 0, 0, 2 Or 1
End Sub

Answer 2

调用Api函数：SetWindowPos
第二个参数设定为HWND_TOPMOST
具体函数及常量信息在ApiViewer里面找