VB窗口全屏与置顶

全屏
Private Sub Form_Load()
    Me.Width = Screen.Width
    Me.Height = Screen.Height
    Me.WindowState = 2
End Sub

置顶
1.在VB的通用代码里写入API声明

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)

2.因为我们要让窗口置顶

那么就在Form_Load()事件里写入如下代码

Dim myval
myval = SetWindowPos(form1.hwnd, -1, 0, 0, 0, 0, 3)