Создание красивой формы в VB

Option Explicit
 
Private Declare Function GetWindowLong Lib 'user32' _
    Alias 'GetWindowLongA' (ByVal hwnd As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib 'user32' Alias 'SetWindowLongA' _
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Declare Function SetLayeredWindowAttributes Lib 'user32' (ByVal hwnd As Long, ByVal crey As Byte, _
    ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
 
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2&
 
Private mbytOpacity As Byte
 
Private Sub Form_Load()
       
    VScroll1.Min = 0
    VScroll1.Max = 255
    VScroll1.Value = 255
    
    mbytOpacity = VScroll1.Value
    
    SetFormOpacity
    
End Sub
 
Private Sub SetFormOpacity()
 
    Dim bytOpacity As Byte
    
    'Set the transparency level
    bytOpacity = mbytOpacity
    
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
    SetLayeredWindowAttributes Me.hwnd, 0, bytOpacity, LWA_ALPHA
 
End Sub
 
Private Sub VScroll1_Change()
    mbytOpacity = VScroll1.Value
    SetFormOpacity
End Sub