New gui devloper in trouble

I am a pick programmer with minimal experience in VB. Does the program "Hello world" mean anything to anyone? ;) Anyway., I just met Pete at the OSDA conference and immediately began using the GUI interface. Is there anywhere one can get concise tutorials on how to get thru this? I have created an app with a form but am confused on where to insert the code and how. Everytime I activate an event, it wants to save it as something new and half the time doesn't know where to put it. I have a nice looking form but need help. I can forward the app and the form, can someone look at it?

I am just trying to create a very simple data entry routine. My VB is very very rusty as I have only taken a beginner and intermediate course LONG AGO. I have created the app and form but am struggling with the calls. The code is below. The object is, when the ITEM is keyed in, it need to propagate the remaining fields with whatever data is in the file.

* AccuTerm GUI Application Skeleton
      *
      * Add your equates and code to open files here...
      OPEN 'GUIBP' TO GUI.PROJECT.FILE ELSE STOP 201,'GUIBP'
      OPEN 'LABEL-SPECS' TO F1 ELSE STOP 201,'LABEL-SPECS'
      * Read the GUI template into TEMPLATE
      READ TEMPLATE FROM GUI.PROJECT.FILE,'GUIAPPTEST' ELSE STOP 202,'GUIAPPTEST'
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN GUI HEADER<--*
      $INCLUDE ATGUIEQUATES
      CALL ATGUIINIT(GUIERRORS,GUISTATE)
      IF GUIERRORS<1> >= 3 THEN GOTO GUI.ERROR
      CALL ATGUIRUNMACRO(TEMPLATE,'',GUIERRORS,GUISTATE)
      IF GUIERRORS<1> >= 3 THEN GOTO GUI.ERROR
      *-->END GUI HEADER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN GUI STARTUP<--*
      CALL ATGUISHOW('GUIAPPTEST','FORM1','','',GUIERRORS,GUISTATE)
      IF GUIERRORS<1> >= 2 THEN GOTO GUI.ERROR
      *-->END GUI STARTUP<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT LOOP<--*
      LOOP
        CALL ATGUIWAITEVENT(GUIAPP,GUIFRM,GUICTL,GUIEVT,GUIARGS,GUIERRORS ,GUISTATE)
        IF GUIERRORS<1> >= 2 THEN GOTO GUI.ERROR
      UNTIL GUIEVT EQ GEQUIT DO
        GUIAPP=OCONV(GUIAPP,'MCU')
        GUIFRM=OCONV(GUIFRM,'MCU')
        GUICTL=OCONV(GUICTL,'MCU')
        GOSUB GUI.DECODE.EVENT
      REPEAT
      *-->END EVENT LOOP<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN GUI TRAILER<--*
      CALL ATGUISHUTDOWN
      STOP
      *-->END GUI TRAILER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT DECODER<--*
GUI.DECODE.EVENT: *
      BEGIN CASE
        CASE GUIAPP='GUIAPPTEST'
             BEGIN CASE
                CASE GUIFRM='FORM1'
                    BEGIN CASE
                      CASE GUICTL=''
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.ACTIVATE
                            CASE GUIEVT=GECLOSE
                                GOSUB GUI.GUIAPPTEST.FORM1.CLOSE
                           END CASE
                      CASE GUICTL='EXIT'
                          BEGIN CASE
                            CASE GUIEVT=GECLICK
                                GOSUB GUI.GUIAPPTEST.FORM1.EXIT.CLICK
                           END CASE
                      CASE GUICTL='ITEM'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.ITEM.ACTIVATE
                           END CASE
                      CASE GUICTL='METHOD'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.METHOD.ACTIVATE
                           END CASE
                      CASE GUICTL='OVRD'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.OVRD.ACTIVATE
                           END CASE
                      CASE GUICTL='PCTRY'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.PCTRY.ACTIVATE
                           END CASE
                      CASE GUICTL='SAVE'
                          BEGIN CASE
                            CASE GUIEVT=GECLICK
                                GOSUB GUI.GUIAPPTEST.FORM1.SAVE.CLICK
                           END CASE
                      CASE GUICTL='SDESC1'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.SDESC1.ACTIVATE
                           END CASE
                      CASE GUICTL='SDESC2'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.SDESC2.ACTIVATE
                           END CASE
                      CASE GUICTL='SDESC3'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.SDESC3.ACTIVATE
                           END CASE
                      CASE GUICTL='SPLU'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.SPLU.ACTIVATE
                           END CASE
                      CASE GUICTL='WDESC1'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.WDESC1.ACTIVATE
                           END CASE
                      CASE GUICTL='WDESC3'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.WDESC3.ACTIVATE
                           END CASE
                      CASE GUICTL='WPLU'
                          BEGIN CASE
                            CASE GUIEVT=GEACTIVATE
                                GOSUB GUI.GUIAPPTEST.FORM1.WPLU.ACTIVATE
                           END CASE
                   END CASE
             END CASE
      END CASE
      RETURN
      *-->END EVENT DECODER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN CLOSE EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.CLOSE: *
      * Default form close event handler
      CALL ATGUIHIDE(GUIAPP,GUIFRM,'','',GUIERRORS,GUISTATE)
      IF GUIERRORS<1> >= 2 THEN GOTO GUI.ERROR
      CALL ATGUIGETPROP(GUIAPP,'','',GPSTATUS,0,0,NUM.FORMS,GUIERRORS,G UISTATE)
      IF GUIERRORS<1> >= 2 THEN GOTO GUI.ERROR
      IF NUM.FORMS = 0 THEN
        CALL ATGUIDELETE(GUIAPP,'','',GUIERRORS,GUISTATE)
        IF GUIERRORS<1> >= 3 THEN GOTO GUI.ERROR
      END
      RETURN
      *-->END CLOSE EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.EXIT.CLICK: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.ITEM.ACTIVATE: *
      PRINT GUICTL
      * Add your event code here...
      *READ DESC FROM F1,GUICTL ELSE DESC = ""
      *DESC1 = DESC<1,1>
      *PRINT DESC1
      *RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.METHOD.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.OVRD.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.PCTRY.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.SAVE.CLICK: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.SDESC1.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.SDESC2.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.SDESC3.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.SPLU.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.WDESC1.ACTIVATE: *
      * Add your event code here...
      PRINT GUICTL
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.WDESC3.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN EVENT HANDLER<--*
GUI.GUIAPPTEST.FORM1.WPLU.ACTIVATE: *
      * Add your event code here...
      RETURN
      *-->END EVENT HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *
      *-->BEGIN ERROR HANDLER<--*
GUI.ERROR: *
      CALL ATGUISHUTDOWN
      PRINT 'The following errors have been reported by the GUI system:'
      NUMERRS=DCOUNT(GUIERRORS ,CHAR(254))
      FOR EACHERR=2 TO NUMERRS
        PRINT GUIERRORS<EACHERR,6>
      NEXT EACHERR
      STOP
      *-->END ERROR HANDLER<--*
      *
      *
      ************************ ************************************
      *
      *


As you can see, beyond the shell, I have pretty lost. I am a versed pick coder but limited in VB. Thanks

LABEL-SPECS is a file that holds the label data. That ^above is the code generated from the "form1" in Guiapptest. Of course it won't run for you, since you are not on my system or have the files. Just create an empty "label-specs" file and run it.

YOu mean this?

TEMPLATE]38161.32969]GUIAPPTEST]GUIBP\GUI-LABESPEC\0
0]1.1]4
2]GUIAPPTEST]]1]auto]auto]60]20]1073741825
4]]7]]]4
4]]48]]]0
4]]44]]]1.0
2]GUIAPPTEST*Form1]]6]auto]auto]103]37.75]9
4]]48]]]0
4]]9]]]0
4]]22]]]LABEL ENTRY UTILITY
2]GUIAPPTEST*Form1*Label1]]15]31]1]42]1.75]0
4]]0]]]ORDER RELEASE LABEL SPECS ENTRY
4]]16]]]Arial
4]]17]]]12
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*Label2]]15]31]3]14]1.25]0
4]]0]]]ITEM NUMBER:
4]]15]]]8388608
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
4]]25]]]2
2]GUIAPPTEST*Form1*item]]16]47]3]16]1.25]8
4]]29]]]8
2]GUIAPPTEST*Form1*Frame1]]26]1]5.19]102].75]0
4]]14]]]-2147483646
4]]11]]]0
2]GUIAPPTEST*Form1*Label3]]15]2]7]30]1.25]0
4]]0]]]WALMART DESCRIPTION 1 :
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
4]]15]]]10485760
2]GUIAPPTEST*Form1*WDESC1]]16]34]7]49]1.25]8
2]GUIAPPTEST*Form1*Label4]]15]2]8.5]30]1.25]0
4]]0]]]WALMART DESCRIPTION 2 :
4]]15]]]10485760
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*WDESC2]]16]34]8.5]49]1.25]0
2]GUIAPPTEST*Form1*Label5]]15]2]10]30]1.25]0
4]]0]]]WALMART DESCRIPTION 3 :
4]]15]]]10485760
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*WDESC3]]16]34]10]49]1.25]8
2]GUIAPPTEST*Form1*Label6]]15]13]12]20]1.25]0
4]]0]]]WALMART PLU # :
4]]15]]]10485760
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*WPLU]]16]34]12]13]1.25]8
2]GUIAPPTEST*Form1*Label7]]15]7]15]26.5]1.25]0
4]]0]]]SAMS DESCRIPTION 1 :
4]]15]]]16384
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*SDESC1]]16]34]15]49]1.25]8
2]GUIAPPTEST*Form1*Label8]]15]7]16.5]25.5]1.25]0
4]]0]]]SAMS DESCRIPTION 2 :
4]]15]]]4210688
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*SDESC2]]16]34]16.5]49]1.25]8
2]GUIAPPTEST*Form1*Label9]]15]7]18]25.5]1.25]0
4]]0]]]SAMS DESCRIPTION 3 :
4]]15]]]16384
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*SDESC3]]16]34]18]49]1.25]8
2]GUIAPPTEST*Form1*Label10]]15]18]19.5]15]1.25]0
4]]0]]]SAMS PLU # :
4]]15]]]16384
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*SPLU]]16]34]19.5]13.5]1.25]8
2]GUIAPPTEST*Form1*Label11]]15]9]22.5]23]1.25]0
4]]0]]] METHOD OF CATCH :
4]]15]]]128
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*METHOD]]16]34]22.5]46]1.25]8
2]GUIAPPTEST*Form1*Label12]]15]4]24.5]29]1.25]0
4]]0]]] PROCESSING COUNTRY :
4]]15]]]16512
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*PCTRY]]16]34]24.5]29]1.25]8
2]GUIAPPTEST*Form1*SAVE]]18]10]35.5]7.5]1.25]32
4]]22]]]SAVE
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*EXIT]]18]24]35.5]7.5]1.25]32
4]]22]]]EXIT
4]]16]]]MS Sans Serif
4]]17]]]9.75
4]]18]]]1
4]]19]]]0
2]GUIAPPTEST*Form1*Picture1]]25]4].5]6.5]3.25]0
4]]23]]]C:\tbfimages\tampabaylogo.jpg
2]GUIAPPTEST*Form1*OVRD]]20]34]28.5]12.5]1.25]8
4]]22]]]1/1 OVERRIDE
4]]16]]]Arial
4]]17]]]9
4]]18]]]1
4]]19]]]0
0]-1

Actually, I've been tinkering around with it nonstop and now have a working application. It may be the ugliest things ever created if looked at by VB programmers, but it works and stores multi-valued data in pick with the Gui advantages of getting there. I really need a course in Pick Gui as I am sure there were better ways to accomplish what I just did.

Where (What states and locations) are the classes? As I said I have taken a few VB courses, just enough to be dangerous, and I have been programming in Pick for many many years. Thanks for the input, I'll check out the samples and the ATGUI class sounds like a good idea. Please post more info.

Florida, close to Tampa to be more specific. I was just at the OSDA conference at the Sheraton Sand Key. I am figuring out the specifics the more I tinker with it. VB with a Pick flavor. Who'd a thunk it?