prova e sostituire private con public

Public Sub BtnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim objMail As New Mail.SmtpMail()
Dim Cognome As String = TextBoxCognome.Text
Dim Mail As String = TextBoxMail.Text
Dim Note As String = TextBoxNote.Text
Dim Corpo As String = Cognome & vbCrLf & Mail & vbCrLf & Note
objMail.Send(Mail, "mioindirizzo@dominio.it", "Prova", Corpo)
End Sub