io ho fatto così e funziona:
form:
modulo:codice:Public Class MioForm Private Sub comune_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles comune.TextChanged ArrTxt(0).Text = comune.Text End Sub Private Sub lavori_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles lavori.TextChanged ArrTxt(1).Text = lavori.Text End Sub Private Sub MioForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Call Matrix() End Sub End Class
postami il tuo codicecodice:Module Matrice_CV Public ArrTxt(1) As TextBox Sub Matrix() ArrTxt(0) = MioForm.comune ArrTxt(1) = MioForm.lavori End Sub End Module

Rispondi quotando