Setparent的子窗体透明

如题,让这个Setparent了的子窗体透明,只显示控件..视乎一般的办法做不到哦...找不到办法了,希望各位出手... --------------------编程问答-------------------- --------------------编程问答-------------------- 你混了这么多日子不知道无码无真相？
鬼知道你怎么“Setparent了子窗体”
需要别人问着？ --------------------编程问答--------------------

引用 2 楼 dbcontrols 的回复:

你混了这么多日子不知道无码无真相？
鬼知道你怎么“Setparent了子窗体”
需要别人问着？

Private Sub Form_Load()

 Set xls = GetObject(, "excel.application")
    Set mycls.xlapp = xls
 LockWindowUpdate 录入框.hWnd  '防止控件数据跳动
ListView1.CheckBoxes = True
Setparent(me.hwnd,form1)
   Timer1.Interval = 100: Timer1.Enabled = True
   录入框.BackColor = &HFF0000
          Dim rtn     As Long
          rtn = GetWindowLong(hWnd, GWL_EXSTYLE)
          rtn = rtn Or WS_EX_LAYERED
          SetWindowLong hWnd, GWL_EXSTYLE, rtn
          SetLayeredWindowAttributes hWnd, &HFF0000, 0, LWA_COLORKEY
          Timer1.Interval = 100: Timer1.Enabled = True
         Call ltvload(ListView1, cnn, rst)
         
LockWindowUpdate 0

  End Sub

补充：VB ,  基础类