Private Sub btnGeraEFD_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGeraEFD.Click 'verifica se a finalidade doi selecionada If cbbFinalidade.SelectedIndex = -1 Then MessageBox.Show("Informe a Finalidade.") cbbFinalidade.Focus() Else Try 'desabilita os botoes do form btnGeraEFD.Enabled = False button1.Enabled = False 'metodo que gera o sped GeraSpedFiscal(dtpInicio.Value, dtpTermino.Value, cbbFinalidade.SelectedIndex) Finally 'habilita os botoes novamente btnGeraEFD.Enabled = True button1.Enabled = True End Try End If End Sub