Private Sub btnValidarXML_Click(sender As Object, e As EventArgs)
openFileDialog1.InitialDirectory = Application.StartupPath
openFileDialog1.Filter = "NFS-e (*.xml)|"
openFileDialog1.Title = "Localizar NFS-e"
Dim nfse As New asscshnfse.asscshnfse()
If openFileDialog1.ShowDialog() = DialogResult.OK Then
If nfse.ValidarArquivoXML(openFileDialog1.FileName) Then
MessageBox.Show("Arquivo validado com sucesso!", "NFS-e", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End If
End Sub