X
تبلیغات
نماشا
رایتل

ابتدا متغیر های زیر را بصورت عمومی یعنی خارج از سابروتینها تعریف کنید

Private _closeClick AsBoolean

PublicConst SC_CLOSE AsInteger = 61536

PublicConst WM_SYSCOMMAND AsInteger = 274

سپس سابروتین زیر را بنویسید

 

Protected Overloads Overrides Sub WndProc(ByRef m As message)

If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then

ExitSub

Else

Me._closeClick = True

EndIf

MyBase.WndProc(m)

EndSub