SetWindowPos 就是完成设置窗口位置和状态（pos=position）的功能。源代码如下： Option Explicit 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 HWND_TOPMOST& = -1 ' 将窗口置于列表顶部，并位于任何最顶部窗口的前面 Private Const SWP_NOSIZE& = &H1 ' 保持窗口大小 Private Const SWP_NOMOVE& = &H2 ' 保持窗口位置 Private Sub Form_Load() SetWindowPos Me。
hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE ' 将窗口设为总在最前 End Sub 。
要显示窗体.Show 0,主窗体
在VB6.0里要先在最前面进行如下声明 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 在过程中加入 SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 3 就可以了，还原把 -1 改为 -2 。 如果是VB.net就容易了，直接在窗体属性中设置TopMost属性就行了
我不懂用什么代码好 但是我就知道设置窗体属性可以把窗口在运行时位于最前端
答：Private Declare Function SetWindowPos& Lib "user32" (ByVal hwnd As Long, ByVal h...详情>>
