'// Projenize "Microsoft Shell Controls and Automation" referansı ekleyin ve bir adet buton ekleyin Dim a As New Shell32.Shell Private Sub Command1_Click() a.MinimizeAll End Sub