NotVB

'Form created with the help of Freeform 3 v07-15-08
'Generated on Jul 25, 2011 at 18:29:54


[setup.1.Window]

    '-----Begin code for #1

    nomainwin
    WindowWidth = 550
    WindowHeight = 410
    UpperLeftX=int((DisplayWidth-WindowWidth)/2)
    UpperLeftY=int((DisplayHeight-WindowHeight)/2)

    '-----Begin menu code

    menu #1, "test1",_
             "test1", [test1],_
             "test2", [test2],_
             "test3", [test3]

    menu #1, "test2",_
             "test5", [test5],_
             "test6", [test6],_
             "test7", [test7]

    menu #1, "test3",_
             "test8" , [test8],_
             "test9" , [test9],_
             "test10", [test10]


    '-----End menu code

    open "untitled" for window as #1
    print #1, "font tahoma 8"
    print #1, "trapclose [quit.1]"


[1.inputLoop]   'wait here for input event
    wait



[test1]   'Perform action for menu test1, item test1

    'Insert your own code here

    wait


[test2]   'Perform action for menu test1, item test2

    'Insert your own code here

    wait


[test3]   'Perform action for menu test1, item test3

    'Insert your own code here

    wait


[test5]   'Perform action for menu test2, item test5

    'Insert your own code here

    wait


[test6]   'Perform action for menu test2, item test6

    'Insert your own code here

    wait


[test7]   'Perform action for menu test2, item test7

    'Insert your own code here

    wait


[test8]   'Perform action for menu test3, item test8

    'Insert your own code here

    wait


[test9]   'Perform action for menu test3, item test9

    'Insert your own code here

    wait


[test10]   'Perform action for menu test3, item test10

    'Insert your own code here

    wait

[quit.1] 'End the program
    close #1
    end