ho corretto inserendolo nel form()

codice:
Private Sub Form_Load()
        Set poSendMail = New vbSendMail.clsSendMail
End Sub
ma mi da lo stesso errore