VB中让窗口浮在最上端

可以用API SetWindowPos 来实现你要的功能，如：
'// 定义
'// 改变指定窗口的"层"位置
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 Command1_Click()
Call SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

'// 取消置顶
Private Sub Command2_Click()
Call SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

没那么复杂啊
Private Sub Command1_Click()
Form2.Show 1
End Sub
如果想让FORM1直接显示最上端。可以建立一个模块
然后用MAIN（）启动FORM1