private sub command1_click ()
form1.label1.caption= form2.label1.caption
end sub