[RESOLVED] minimize on close

[litlewiki]

another doubt --

i want my form to minimize when the user clicks the X button i wrote this code ,it minimizes the form but exits later

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
Select Case UnloadMode
        Case 0
        Me.WindowState = vbMinimized
        Exit Sub
End Select
    
End Sub

most messengers,download managers have this feature.how is it done??

[Shuja Ali]

Set Cancel=True in your Select block.

[iPrank]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 
Select Case UnloadMode
        Case 0
        Me.WindowState = vbMinimized
        [b]Cancel = 1[/b]
        Exit Sub
End Select
    
End Sub

[litlewiki]

oh yes i forgot abt that ,thanks shuja ali !