Aralık
11th 2007
Posted under Visual Basic
Öncelikle Bir class oluşturuyoruz.
Public Class CloseButton
Private Declare Function GetSystemMenu Lib “user32″ (ByVal hwnd As Integer, ByVal revert As Integer) As Integer
Private Declare Function EnableMenuItem Lib “user32″ (ByVal menu As Integer, ByVal ideEnableItem As Integer, ByVal enable As Integer) As Integer
Private Const SC_CLOSE As Integer = &HF060
Private Const MF_BYCOMMAND As Integer = &H0
Private Const MF_GRAYED As Integer = &H1
Private Const MF_ENABLED As Integer = &H0
