文件名称：VB实例教程150例 很多奥
文件大小：4.24MB
文件格式：RAR
更新时间：2012-04-16 15:12:00
VB实例教程150例
Private Sub Check1_Click() Dim res As Long If Check1.Value = 1 Then res = SetWindowPos(Me.hwnd, HWND_TOPMOST, _ 0, 0, 0, 0, Flags) Else res = SetWindowPos(Me.hwnd, HWND_NOTOPMOST, _ 0, 0, 0, 0, Flags) End If End Sub