Public Class Form1
    Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, _
      ByVal lpWindowName As String) As IntPtr
    Declare Function ShowWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal _
    nCmdShow As Int32) As IntPtr
    Dim WithEvents Btn1 As New Button With {.Dock = DockStyle.Bottom, .Text = _
    "Hide", .Parent = Me}
    Dim WithEvents Btn2 As New Button With {.Dock = DockStyle.Bottom, .Text = _
    "Show", .Parent = Me}
    Const SW_SHOW As Int32 = 5
    Const SW_HIDE As Int32 = 0
 
    Private Sub Btn1_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Btn1.MouseDown
        ShowWindow(FindWindow("Progman", Nothing), SW_HIDE)
    End Sub
 
    Private Sub Btn2_MouseDown(ByVal sender As Object, ByVal e As _
      MouseEventArgs) Handles Btn2.MouseDown
        ShowWindow(FindWindow("Progman", Nothing), SW_SHOW)
    End Sub
End Class