prova cosi:
codice:
Private Sub LoadNewDoc() 
    Dim frmD As New FrmNewAnagraf 
    frmD.Show 
End Sub 
 :quote: