Ja imam nacin za disableovanje X dugmeta, ali to nije ono sto tebi treba...
Code:
'U modulu:
Public Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const MF_BYPOSITION = &H400&
Public Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, _
ByVal nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMenu Lib "User32" (ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
Public Sub DisableClose(hWnd As Long)
Dim hMenu As Long
hMenu = GetSystemMenu(hWnd, 0)
RemoveMenu hMenu, 6, MF_BYPOSITION
RemoveMenu hMenu, 5, MF_BYPOSITION
End Sub
pozivas ga sa:
Code:
DisableClose frmForm.hWnd
Evo ti jedno mnogo jednostavnije rešenje koje radi i na MDI i na svim drugim formama:
Code:
Private Sub Form_Resize()
If Me.WindowState = 2 Then
Me.WindowState = 0
End If
End Sub