Quitar la opcion de cerrar un formulario

Raziel
29 de Mayo del 2005
Hola a [email protected] Cómo puedo quitar el botón x de un formulario? Me refiero a lo mismo que se hace con minbutton y maxbutton. También tengo el problema de quitar un elemento de una lista. Qué función existe?
Gracias.

Juan Diego
29 de Mayo del 2005
Se debe de hacer desde codigo ya que como sabes no se puede desde las propiedades del Form:

Option Explicit
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = 1024

Private Sub Form_Load()
Dim lHndSysMenu As Long
Dim lAns1 As Long, lAns2 As Long
lHndSysMenu = GetSystemMenu(Form1.hwnd, 0)
lAns1 = RemoveMenu(lHndSysMenu, 6, MF_BYPOSITION)
lAns2 = RemoveMenu(lHndSysMenu, 5, MF_BYPOSITION)
End Sub

Raziel
29 de Mayo del 2005
Gracias por tu respuesta. Funcionando al 100%. Un saludo.