Excel VBA Code For Minimizing UserForm

[warehouse peon]

I am writing an application that uses an Excel sheets to store data. Also in that application all the controls and inputs are to be run from a form. Now my problem is that I am not able to minimize my excel window. So all I need is some Excel VBA Code For Minimizing UserForm. If somebody knows the coding of that, please help me by providing that coding.

[Modifier]

According to me you should able to minimize your Excel by calling the WindowState as minimized. The Excel VBA Code For Minimizing UserForm is as follows :

Application.WindowState = xlMinimized

Hope that this code will help you to minimize the UserForm.

[Allan.d]

You can also try the following code for minimizing the User form :

Sub Workbook_Open()
Application.WindowState = xlMinimized
frm_Main.Show
End Sub

[Warner]

I would like to suggest you to use the following code :

ActiveWindow.WindowState = xlMinimized

You will have to use this code at the beginning of your Open event. By doing this your active window will get minimized. Instead of using simply

Application.WindowState = xlMinimized

Its better to use the above codes.

[CodGuru]

I am providing you the code that will be useful for adding a Minimize/Maximize Button to a UserForm. Here is the code for that :
Dim dWidth As Double

Private Sub ToggleButton1_Click()

	If ToggleButton1.Value = True Then

		Me.Height = Me.Height * 0.30

    Else

       	Me.Height = dWidth

    End If

End Sub

Private Sub UserForm_Initialize()

    dWidth = Me.Height

End Sub