tão fazes como eu te disso...
kd clicas no botão para abrir o form metes o código form2.open(), e fazes um select por exemplo do ID do producto k keres passar
dp guardas esse ID numa variavel global e usas-a no form k abriste...
para resolver esse teu problema... usas a função Inherits
ex: public class form2()
Inherits formfont
em .net talvez seja verdade em vb6 não podes por inherits
como alternativa podes aceder a qualquer função/sub/variavel que tenha sido declarada como public e a qualquer objecto que tenhas colocada no design da form (botões, textbox, etc)
ex:
na form um podes fazer
dim FrmDocumento as FrmDoc 'novo objecto com o nome frmdocumento com base no FrmDoc
set frmdocumento as new frmdoc 'Cria uma nova instancia do objecto assim podes ter varias forms com base na frmdoc
frmdocumento.show 'abre a nova form para o utilizador a ver~
frmdocumento.Lerdados(TblCompras) ' estas a dar ordem para executar a sub lerdados declarada como public na frmdoc e a passar uma variavel
*************
esta parte é uma continuação da anterior e destina-se a guardades informação sobre o novo objecto (frmdocumento) de forma a poderes continuar a trabalhar com ele quando acabar a função/sub onde puses-te as linhas anteriores
private Frms as Collection 'nova colection para guardar as forms, isto normalmente convem ser colocado na form ou num modulo e não em uma sub
set frms = new collection 'mete isto no form_load é basicamente o criar do objecto frms como collection
'agora sim no seguimento do código anterior e colocado na mesma sub/func
frms.add(frmdocumento,"Doc de teste") 'estás a acrescentar a frmdocumento á collection e estás a dar-lhe o nome de "Doc de teste"
'daqui para a frente podes-te referir á frmdocumento em qualquer lugar/altura como sendo
frms("Doc de teste")
ex:
frm("Doc de teste").caption = "Teste" 'define o titulo da janela para "teste"
*************
para que a lerdados funcione a partir de outra form como foi demonstrado tens de a declarar na frmdoc da seguinte forma
PUBLIC sub lerdados(tbl as recordset) 'public indica que pode ser acedida de fora lerdados é o nome da sub (DUH) tbl é um parametro como qualquer outro (podias ter posto integer, string, etc)