如何制作自己的界面风格

如题……
很想学，可是不会写控件…… --------------------编程问答-------------------- Private Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
--------------------编程问答-------------------- 这是什么？我是新手，可否写的明白一点…… --------------------编程问答-------------------- 你想学什么就要自己去学啊！来这里干什么？这里是论坛，不是教室！你遇到的具体问题可以来这里和大家一起讨论，这样才叫学习嘛 --------------------编程问答-------------------- 大爷，我只是不明白而已。
是想请各位老大把用控件做UI的流程简单说下。
我TNND还用你在这用感叹号吓唬我啊？
爷我玩电脑时还没你呢。
想死告诉我你哪的。我TMD混社会还没见过你这样的。
想见识见识。真的。
QQ 272745495
不服来
-死爷 --------------------编程问答-------------------- 唉.... --------------------编程问答-------------------- 靠，连黑社会也在学vb,阿勇，明儿在路上多往后看看，小心板砖。 --------------------编程问答--------------------   '透明掉窗口特定的颜色   /半透明窗体---函数声明> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
    Public   Declare   Function   GetWindowLong   Lib   "user32"   Alias   "GetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   nIndex   As   Long)   As   Long
    Public   Declare   Function   SetWindowLong   Lib   "user32"   Alias   "SetWindowLongA"   (ByVal   hwnd   As   Long,   ByVal   nIndex   As   Long,   ByVal   dwNewLong   As   Long)   As   Long
    Public   Declare   Function   SetLayeredWindowAttributes   Lib   "user32"   (ByVal   hwnd   As   Long,   ByVal   crKey   As   Long,   ByVal   bAlpha   As   Byte,   ByVal   dwFlags   As   Long)   As   Long
    '其中hwnd是透明窗体的句柄，crKey为颜色值，bAlpha是透明度，
    '取值范围是[0,255]，dwFlags是透明方式，可以取两个值：

    '当取值为LWA_ALPHA时，crKey参数无效，bAlpha参数有效；
    '当取值为LWA_COLORKEY时，bAlpha参数有效而窗体中的所有颜色为crKey的地方将变为透明

    '－－这个功能很有用：我们不必再为建立
    '不规则形状的窗体而调用一大堆区域分析、创建、合并函数了，只需指定透明处的颜色'
    '值即可，哈哈哈哈！请看具体代码。
    Public   Const   WS_EX_LAYERED   =   &H80000
    Public   Const   GWL_EXSTYLE   =   (-20)
    Public   Const   LWA_ALPHA   =   &H2
    Public   Const   LWA_COLORKEY   =   &H1

'写一个函数
Public   Sub   SetFormColorTransparnct(myfrm   As   Form)   'Transparnct透明
        '透明掉窗口特定的颜色
Dim   rtn   As   Long

        rtn   =   GetWindowLong(myfrm.hwnd,   GWL_EXSTYLE)
        rtn   =   rtn   Or   WS_EX_LAYERED
        SetWindowLong   myfrm.hwnd,   GWL_EXSTYLE,   rtn
        SetLayeredWindowAttributes   myfrm.hwnd,   &H80C0FF,   0,   LWA_COLORKEY'&H80C0FF为透明掉的颜色的16进制数 End   Sub --------------------编程问答-------------------- 函数的使用,在窗体load时加上如下代码,即可实现使窗口特定的颜色透明
Private Sub Form_Load()
'透明掉窗体的橙色&H80C0FF
SetFormColorTransparnct Me
End Sub
--------------------编程问答-------------------- 效果如图

补充：VB ,  基础类