evet bahsettiğiniz gibi bu kod için bir modül yazmaya gerek yok,bu şekilde de kullanılabilir.
fakat eklediğiniz kod bu hali ile yetersiz kalmakta ve
Kod:
ShowWindow(ByVal hWindow, ByVal nCmdShow)
eğer ilgili açılış formunun hem ÖZELLİKLER-DİĞER sekmesindeki AÇILAN ve KALICI satırlarını EVET olarak işaretlerseniz ve hem de Option Explicit satırının bir altına aşağıdaki kod satırını da ilave ederseniz,o zaman sorunsuz kullanabilirsiniz.
Kod:
Const SW_HIDE = 0 ' Fenster ausblenden
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Kod:
Application.Quit