Desativar O " X " E O " Alt + F4 "

[RickM]

Olá, gostaria de saber se há algum jeito de desativar o xzinho e o Alt + F4, para que meu aplicativo só seja fechado quando a pessoa clicar no botão que eu determinei.

Tem como fazer isso ? Se souberem de algo e postarem aqui, agradeço muito.

Abraços, Marco.

[fercosmig]

Cara você pode fazer o form sem nenhuma barra em cima!

Mas quanto ao alt+f4 nunca ouvi falar!

abraços

[Promotor Advanced]

para evitar o alt+f4:

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

End Sub

acho que tem um código que deixa o x inativo, se eu ver eu posto aqui...

[PH1959]

para você ficar sem o X na barra

é só colocar na propriedades do form controlbox=false

[mestre fyoda]

desabilita o X

Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long

Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()

  '// desabilita o botão fechar

  RemoveMenus

End Sub

Private Sub RemoveMenus()

  Dim hMenu As Long

  hMenu = GetSystemMenu(hWnd, False)

  DeleteMenu hMenu, 6, MF_BYPOSITION

End Sub

[RickM]

Muito obrigado.