MsgBox : VGExtreme General Discussion

Dim MyVar
MyVar = MsgBox ("Hello World!", 65, "MsgBox Example")

Windows.FocusWindow wnd

set wnd = GUI.AddWindow(100,450,"test")

wnd.Settitle "Control"
wnd.setWidth  10
wnd.setheight  10
wnd.setLeft 50
wnd.SetOnDbClick  "dbclick"
wnd.setminx 170
wnd.setminy 72

set btn1 = wnd.addcontrol("Button",3,10,"Pause")
btn1.Setheight 20
btn1.setwidth 45
btn1.SetRightAnchor  true
btn1.SetLeftAnchor  true
btn1.SetonPress  "1"

set btn2 = wnd.addcontrol("Button",50,10,"UnPause")
btn2.Setheight 20
btn2.setwidth 65
btn2.SetRightAnchor  true
btn2.SetLeftAnchor  true
btn2.SetonPress  "2"

set btn3 = wnd.addcontrol("Button",118,10,"Exit")
btn3.Setheight  20
btn3.setwidth 40
btn3.SetRightAnchor  true
btn3.SetLeftAnchor  true
btn3.SetonPress  "3"

       set wnd = GUI.AddWindow(100,450,"test")
        Windows.FocusWindow wnd.GetHWND()
   
        wnd.Settitle "Control"
        wnd.setWidth  10
        wnd.setheight  10
        wnd.setLeft 50
        wnd.SetOnDbClick  "dbclick"
        wnd.setminx 170
        wnd.setminy 72

        set btn1 = wnd.addcontrol("Button",3,10,"Pause")
        btn1.Setheight 20
        btn1.setwidth 45
        btn1.SetRightAnchor  true
        btn1.SetLeftAnchor  true
        btn1.SetonPress  "onPause"

        set btn2 = wnd.addcontrol("Button",50,10,"UnPause")
        btn2.Setheight 20
        btn2.setwidth 65
        btn2.SetRightAnchor  true
        btn2.SetLeftAnchor  true
        btn2.SetonPress  "onUnPause"

        set btn3 = wnd.addcontrol("Button",118,10,"Exit")
        btn3.Setheight  20
        btn3.setwidth 40
        btn3.SetRightAnchor  true
        btn3.SetLeftAnchor  true
        btn3.SetonPress  "onExit"

    public sub onExit
        CloseWindow wnd.GetHWND()
    end sub

    public sub onPause
        bPaused = true
    end sub

    public sub onUnPause
        bPaused = false
    end sub