Form1.cbl

       CLASS-ID COBOLSandbox.Form1 IS PARTIAL INHERITS TYPE System.Windows.Forms.Form.
       
       METHOD-ID NEW.
       PROCEDURE DIVISION.
           INVOKE self::InitializeComponent
           GOBACK.
       END METHOD.

       METHOD-ID AddButton_Click FINAL PRIVATE.
       DATA DIVISION.
       LOCAL-STORAGE SECTION.
       01 a                            PIC 9(5).
       01 b                            PIC 9(5).
       01 result                       PIC 9(10).
       
       LINKAGE SECTION.
       01 sender                       OBJECT.
       01 e                            TYPE System.EventArgs.
       
       PROCEDURE DIVISION USING BY VALUE sender e.
           MOVE TYPE System.Convert::ToDecimal(AField::Text) TO a
           MOVE TYPE System.Convert::ToDecimal(BField::Text) TO b
           INVOKE self::AddNumbers(a, b, result)
           INVOKE TYPE MessageBox::Show(result::ToString())
       END METHOD.

       METHOD-ID AddNumbers FINAL PRIVATE.
       DATA DIVISION.
       LINKAGE SECTION.
       01 a                            PIC 9(5).
       01 b                            PIC 9(5).
       01 result                       PIC 9(10).
       
       PROCEDURE DIVISION USING BY VALUE a b BY REFERENCE result.
           ADD a TO b GIVING result
       END METHOD.

       END CLASS.