Faktanya, tiga tombol di sisi kanan atas Formulir sesuai dengan beberapa opsi di Kotak Kontrol (Kotak Kontrol) di sisi kiri atas Formulir (minimalkan/maksimalkan/menutup), di antaranya maksimalkan (MaxButton) dan minimalkan ( Minbutton) Mereka dapat diatur langsung di properti Formulir, tetapi VB tidak menyediakan fungsi pengaturan tombol "X"! Untuk mencapai fungsi ini, Anda harus menggunakan API:
Karena tombol "X" berhubungan dengan opsi tutup ControlBox, kita hanya perlu menghapus opsi tutup Menu sistem (yaitu, ControlBox)! Anda bisa melihat terlebih dahulu pada menu sistem di pojok kiri atas Browser yang Anda gunakan. Nomor manakah yang merupakan opsi [Tutup], bukan yang ke-6? Ini yang ke 7, dan garis pemisahnya dihitung satu! Pembaginya adalah yang ke-6!
Ketika kita menghilangkan opsi close, maka akan tersisa garis pemisah yang aneh, jadi sebaiknya garis pemisah tersebut juga dihilangkan. Indeks Menu dimulai dari 0, dan garis pemisahnya adalah yang ke-6, jadi Indeks=5.
Koreksi: Agar kode program berfungsi dengan baik di Windows NT, ubah tipe Integer menjadi Long. 89.05.04
'Tangkap bagian Menu sistem
PRIvateDeclareFunctionGetSystemMenuLib"user32"Alias"GetSystemMenu"(ByValhwndAsLong,ByValbRevertAsLong)AsLong
'Hapus API Menu sistem
PrivateDeclareFunctionRemoveMenuLib"user32"Alias"RemoveMenu"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
'Parameter pertama adalah tampilan Menu sistem
'Parameter kedua adalah Indeks-> dari opsi yang akan dihapus