كود اظهار اكسيس

[رشبد]

السلام عليكم

اخواني في المنتدى 

وجدت كود اخفاء البرنامج اكسيس واظهار النمادج ولكن كيف اطهرها  يعني اريد كو د اظهار البرنامج عكس الكود المرفق

وهدا كود اخفاء

Option Compare Database
Option Explicit

Const SW_HIDE = 1
Const SW_NORMAL = 1
Const SW_MINIMIZED = 2
Const SW_MAXIMIZED = 3

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Commande1_Click()


End Sub

Private Sub Form_Open(Cancel As Integer)
   Call ShowWindow(hWndAccessApp, SW_HIDE)
End Sub

Private Sub Form_Close()

Application.Quit
End Sub

 

[ابوخليل]

SW_HIDE 'اخفاء
 SW_NORMAL  'عادي
 SW_MINIMIZED 'تصغير
SW_MAXIMIZED 'تكبير

Call ShowWindow(hWndAccessApp, SW_HIDE)

غير ما لون بالاحمر حسب رغبتك

[رشبد]

جزاك الله خيرا وزادك من فضله