怎么让richtextbox,表格，listview 等控件的背景透明？或半透明

如何让richtextbox,表格，listview 等控件的背景透明？或半透明？
如题

[解决办法]
试了试，勉强可以，不过在控件得到焦点后，还需要做进一步的处理，大致如下：

1. 新建一表单，
2. 中间用 Image 控件放一块大图片
3. 再添加一 RichText 控件在图片上
4. 最后加一个按钮，按钮 Click 事件中写入下面的代码：

VB code

#define GWL_EXSTYLE    -20#define WS_EX_TRANSPARENT       0x20Declare Long SetWindowLong in win32api Long hwnd, Long nIndex, Long dwNewLongDeclare Long GetWindowLong in win32api Long hwnd, Long nIndexDeclare Long GetParent in win32api Long hWndhWnd = Thisform.olecontrol1.hwndSetWindowLong(hwnd, GWL_EXSTYLE, Bitor(GetWindowLong(hwnd, GWL_EXSTYLE), WS_EX_TRANSPARENT))hWnd = GetParent(hWnd)SetWindowLong(hwnd, GWL_EXSTYLE, Bitor(GetWindowLong(hwnd, GWL_EXSTYLE), WS_EX_TRANSPARENT))With Thisform.olecontrol1    .Width = .Width + 1    .Width = .Width - 1EndWith