prova a passare alla routine un variabile in più di tipo object(form) e riallacciala al posto del nime del form.
ad esempio
public sub lol(primodato as string,secdato as integer)
form1.Caption = primodato
end sub
diventerà
Public Sub lol(primodato As String, secdato As Integer, formdiappartenenza As Form)
formdiappartenenza.Caption = primodato
End Sub
e poi farai un call del tipo
Private Sub Command1_Click()
Call lol("lol", 11, Me)
End Sub
|