'e-mail: borislav_b@gbg.bg
Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As String) As Long
declare SUB OvalBtn1Click (Sender AS QOVALBTN)
DECLARE SUB OvalBtn2Click (Sender AS QOVALBTN)
DECLARE SUB OvalBtn3Click (Sender AS QOVALBTN)

CREATE Form AS QFORM
    Caption = "ShowHide"
    Width = 413
    Height = 103
    color=rgb(100,100,255)
    Center
    CREATE Label1 AS QLABEL
        Caption = "Window Caption :"
        Left = 3
        Top = 6
        Width = 88
        Transparent = 1
    END CREATE
    CREATE OvalBtn1 AS QOVALBTN
        Caption = "&Hide"
        Left = 12
        Top = 36
        Width = 100
        Height = 34
        OnClick = OvalBtn1Click
    END CREATE
    CREATE OvalBtn2 AS QOVALBTN
        Caption = "&Show"
        Left = 156
        Top = 36
        Width = 100
        Height = 34
        OnClick = OvalBtn2Click
    END CREATE
    CREATE OvalBtn3 AS QOVALBTN
        Caption = "&Close"
        Left = 292
        Top = 36
        Width = 100
        Height = 34
        OnClick = OvalBtn3Click
    END CREATE
    CREATE Edit1 AS QEDIT
        Text = "Calculator"
        Left = 95
        Top = 4
        Width = 297
        color=rgb(200,255,200)
    END CREATE
END CREATE

Form.ShowModal

SUB OvalBtn1Click (Sender AS QOVALBTN)
 showwindow(findwindow(null,edit1.text),0)
END SUB

SUB OvalBtn2Click (Sender AS QOVALBTN)
 showwindow(findwindow(null,edit1.text),1)
END SUB

SUB OvalBtn3Click (Sender AS QOVALBTN)
 application.terminate
END SUB