'// 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