窗体前置的应用

    在用SB方法学英语的时候，有些单词或句子需要屏蔽，本来用前置的词典也可以，但有时候多个地方需要屏蔽，只一个词典就不够了，所以写了这个程序。这个小程序可以右键产生多个前置窗体，并且双击可以取消，用着挺方便，跟大家分享一下。

Option Explicit'窗体位于最上层apiPublic Declare Function SetWindowPos Lib "user32 " (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, Y, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long'常量Public Const HWND_TOPMOST = -1Public Const HWND_NOTOPMOST = -2Public Const SWP_NOMOVE = &H2Public Const SWP_NOSIZE = &H1Public Const SWP_NOACTIVATE = &H10Public Const SWP_SHOWWINDOW = &H40Public Const TOPMOST_FLAGS = SWP_NOMOVE Or SWP_NOSIZEPublic Sub AlwaysOnTop(TheForm As Form, blnOnTop As Boolean)                     '使窗体位于最上层      '变量   TheForm:需要位于最上层的窗体      '变量   blnOnTop:True-窗体位于最上层,False-窗体正常显示      If blnOnTop = True Then            SetWindowPos TheForm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS                End IfEnd SubPrivate Sub Form_Activate()           '激活窗体      AlwaysOnTop Me, True                   '窗体位于最上层End SubPrivate Sub Form_DblClick()        Unload MeEnd SubPrivate Sub Form_Load()        two.Visible = FalseEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)        If Button = 2 Then                PopupMenu two        End IfEnd SubPrivate Sub frmtwo_Click()        Dim frmtwo As Form1        Set frmtwo = New Form1        frmtwo.ShowEnd Sub