NOTICE: Our Community is moving. Get more information.
class-id testtextspace.Form1 is partial inherits type System.Windows.Forms.Form. working-storage section. 01 wsForm2 type project2.Form2. method-id NEW. procedure division. invoke self::InitializeComponent set wsForm2 to new project2.Form2 goback. end method.
class-id project2.Form2 is partial inherits type System.Windows.Forms.Form. working-storage section. method-id set property textvalue. procedure division using textstring as string. set textBox1::Text to textstring goback. end method.
method-id button1_Click final private. procedure division using by value sender as object e as type System.EventArgs. set wsForm2::textvalue to "From Form 1" invoke wsForm2::Show
01 textBox1 type System.Windows.Forms.TextBox public.
set wsForm2::textBox1::Text to "From Form 1"