VB如何使窗体及部件浮在屏幕上而不能被选中

窗体已经做出半透明，如何使鼠标选中不了这个窗体和上面的东西，可以透过它点击下面的按钮？高手求教

可能我的意思表达有问题，已经让这个窗体（form）和它上面的shape1置顶显示，目的是让鼠标即使点击到这上面还是可以直接透过窗体和shape1而操作下面的其他程序。

这个很简单，参考下面的代码做就行了：
Option Explicit
'声明这两个 API ：
Private Declare Function GetWindowLong Lib "user32" _
            Alias "GetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
            Alias "SetWindowLongW" (ByVal hWnd As Long, _
                     ByVal nIndex As Long, _
                    ByVal dwNewLong As Long) As Long

Private Sub Command1_Click()
   '这个是把“自己”设置鼠标穿透
   '如果是设置别的窗口，下面的 hWnd就换成对应窗口的句柄
    Call SetWindowLong(hWnd, -20, _
                     GetWindowLong(hWnd, -20) Or &H80020)
End Sub

你这个是隔山大虎啊，你的思路错了！ 正确的思路是，以透明的窗体及空间事件响应其背后的操作，就是点击了这个窗体，而调用其背后窗体或者控件的对应事件，你试一下

同求答案，不懂啊 再看看别人怎么说的。