Na verdade, os três botões do lado superior direito do Form correspondem a diversas opções do ControlBox (ControlBox) do lado superior esquerdo do Form (minimizar/maximizar/fechar), entre as quais o maximizar (MaxButton) e minimizar ( Minbutton) Eles podem ser configurados diretamente nas propriedades do Form, mas o VB não disponibiliza a função de configurar o botão “X”! Para alcançar esta função, você deve usar API:
Como o botão “X” corresponde à opção de fechar do ControlBox, só precisamos remover a opção de fechar do Menu do sistema (ou seja, ControlBox)! Você pode primeiro dar uma olhada no menu do sistema no canto superior esquerdo do navegador que você está usando. Qual número é a opção [Fechar], e não o 6º? É o sétimo, e a linha divisória conta como um! O divisor é o 6º!
Quando removemos a opção de fechar, uma linha separadora estranha será deixada, então é melhor remover a linha separadora também. O Índice do Menu começa em 0, e a linha divisória é a 6ª, então Índice=5.
Correção: Para fazer o código do programa funcionar corretamente no Windows NT, altere o tipo Integer para Long. 89.05.04
'Pegue o hwnd do menu do sistema
PRivateDeclareFunctionGetSystemMenuLib"user32"Alias"GetSystemMenu"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
'Remover API do menu do sistema
PrivateDeclareFunctionRemoveMenuLib"user32"Alias"RemoveMenu"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
'O primeiro parâmetro é o hwnd do menu do sistema
'O segundo parâmetro é o Índice-> da opção a ser removida