Object oAdd is a Button
        Set Location to 61 218
        Set Label to "Add"

        // fires when the button is clicked
        Procedure OnClick
            String sFirstName
            String sLastName
            String sName
            Integer iArrayCount
            Integer iLoop
            Boolean bCheck
            String sLetter

            Move (True) to bCheck

            Get Value of oFirstName to sFirstName
            Get Value of oLastName to sLastName

            For iLoop from 1 to (Length(sFirstName))
                Move (Uppercase(mid(sFirstName,1,iloop))) to sLetter
                If not ((sLetter ge "A") and (sLetter le "Z")) Begin
                    Move (False) to bCheck
                End
            Loop

            For iLoop from 1 to (Length(sLastName))
                Move (Uppercase(mid(sLastName,1,iloop))) to sLetter
                If not ((sLetter ge "A") and (sLetter le "Z")) Begin
                    Move (False) to bCheck
                End
            Loop

            If (bCheck) Begin

                Move (sFirstName + ", " + sLastName) to sName

                //array stuff
                Get Item_Count of ostudentname to iArrayCount
                Set Value of ostudentname item iArrayCount to sName
            End
            Else Begin
            Send Info_Box "fail"
            End

            Set Value of oFirstName to ""
            Set Value of oLastName to ""
        End_Procedure

    End_Object