顯示桌面

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim clsidShell As New Guid("13709620-C279-11CE-A49E-444553540000")
Dim shell As Object = Activator.CreateInstance( _
Type.GetTypeFromCLSID(clsidShell))
shell.ToggleDesktop()
End Sub