formun sağ üst köşesindeki kapatma butonu

[ismailasi]

Değerli üyeler,
excell'de formumuzun sağ üst köşesinde bulunan "X" kapatma ikonunu nasıl görünmez hale getiririz?
Acil yardımlarınızı bekliyorum.

 

[HIDROKINON]

Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub UserForm_Initialize()
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub

 

[ismailasi]

çok teşekkürler