如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。

　　首先新建一个EXE工程，再在窗体上拖几个Label控件，看看Label 的强大功能吧，原理就是利用Label来模拟一个按钮，但是首先要将Label控件的属性要调一下，
Name： LblBtn，
BorderStyle: 1，
Appearance: 0，
Alignment: 2，

　　这样一个按钮的雏形就已经出来了，如果工程量很大，可以将多个Label控件的Name属性设为一样的，对于按钮的识别就要靠识别Index属性了，为了方便起见，在进入到代码编辑窗口，输入以下代码：

** Const LBL_BACK_COLOR ＝

　　可能各位看关玩过石器时代，一定会对里面的TextBox的效果感到很爽，VB还不是可以做到，有焦点的控件可以使用SetFocus方法来为其设置焦点，可是一个窗体上如果控件太多了，一个一个的用SetFocus是不是太傻了?这一节的主角就是－－－－－－－－API函数，

首先声明:
** Type POINTAPI
x As Long
y As Long
End Type
** Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" （lpPoint As POINTAPI） As Long
** Declare Function WindowFromPoint Lib "user32" Alias "WindowFromPoint" （ByVal xPoint As Long， ByVal yPoint As Long） As Long
** Declare Function SetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long
但是这里的SetFocus会和控件的SetFocus会搞混淆，改改吧，
** Declare Function nSetFocus Lib "user32" Alias "SetFocus" （ByVal hwnd As Long） As Long
只要Alias指向的接口是对的前面的函数名称简直就是摆设，
在建立一个过程:
Public Function sSetFocus（） As Long
Dim CPos As POINTAPI，Successfull As Boolean，hWnd As Long
DoEvents
Successfull ＝GetCursorPos（CPos）
If Not Successfull Then Exit Sub ’如果未成功则退出该过程
hWnd＝WindowFromPoint（CPos.x，CPos.y）
sSetFocus=nSetFocus(hWnd)
End Sub
　　在窗体上放一个Timer控件，Interval 属性设为100，就是0.1秒，在Timer1控件的Timer事件中填入sSetFocus，在运行一下看看，效果怎么样?

　　可是有的先生小姐要问了，TextBox难道就不能用ScrollBar吗?非也非也，选 工程－>部件－>Microsoft Windows Common Controls－2 6.0 （SP3）就是你的答案，至于卷动TextBox就去研究SendMessage函数吧，否则又有骗稿费之嫌，如果想作绿色软件，不想用控件，可以用俺前面讲到的Label控件，利用字体 Webdings 来模拟ScrollBar，需要注意的是，如果模拟ScrollBar，上下左右箭头分别是5，6，3，4，别忘了把字体设为Webdings

　　再来讲讲窗体的美化，其实将BorderStyle属性设为0就是很好的2D美化;）可是，这样一来，问题又来了，怎么办?凡事都要请API来帮忙，这里需要两个API，一下是该API的声明:

Public Declare Function ReleaseCapture Lib "user32" Alias "ReleaseCapture" （） As Long 注释：这个API是用来解下鼠标的追踪器，关于他的过多用法以及详细介绍可以写信向俺咨询，
还有
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" （ByVal hwnd As Long， ByVal wMsg As Long， ByVal wParam As Long， lParam As Any） As Long’这个该不要俺多介绍了吧
Public Const HTCAPTION ＝ 2 ’代表窗体的标题区
Public Const WM_NCLBUTTONDOWN ＝