private sub button1_click(....ecc.)
dim nomedivariabile as new nomedeltuoform
nomedivariabile.show
end sub

C.