ابتدا متغیر های زیر را بصورت عمومی یعنی خارج از سابروتینها تعریف کنید
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