Public Class fUtenti
    Public ID As String

End Class

Public Class fUtentiDett

 Private Sub fUtentiDett_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
    dim Valore As String = fUtenti.ID
 end Sub

End Class