الخروج من الفورم واخفاء الاطار وصورة فى الزر الدرس الرابع عشر

Option Explicit

Public Declare Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long
Public Declare Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long
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 Declare Function ReleaseCapture Lib "user32" () As Long
 
Public hWnd As Long
 
Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True)
    hWnd = FWw(vbNullString, uf.Caption)
    SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd
    Select Case Sk
    Case True
        SLWA hWnd, colors, &H2, &H1
    Case False
        SLWA hWnd, colors, 50, &H2
    End Select
End Function