Vorrei eliminare la X di chiusura ed il pulsante di ingrandimento di una finestra ma non riesco a farlo.

Sono riuscito con un codice a rendere grigio la X ma non e' la soluzione che desidero anche perche' quando la finestra non e' piu' selezionata la X non diventa piu' grigia.

Ho usato il seguente codice:


codice:
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As IntPtr) As Integer
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As IntPtr) As Boolean
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As IntPtr, ByVal nPosition As Integer, ByVal wFlags As Long) As IntPtr
Private Const MF_REMOVE = &H1000
Private Const MF_DISABLED = &H2
Private Const SC_CLOSE = &HF060

Private Sub Form_Load() 
   Dim HandleMenu As Integer
   HandleMenu = GetSystemMenu(Me.Handle, 0)
   Call RemoveMenu(HandleMenu, SC_CLOSE, MF_REMOVE)
   DrawMenuBar(Me.Handle)
end sub
non mi e' di aiuto il post trovato con la ricerca qui c'e' un metodo per fare quello che richiedo o mi devo arrendere?

Ciao e grazie