Private Sub btnGerarArquivo_Click() Screen.MousePointer = vbHourglass btnGerarArquivo.Enabled = False GeraSpedFiscal dtpIni.Value, dtpFin.Value, Str(cmbFinalidade.ListIndex) 'parametro 1: Data Inicial 'parametro 2: Data Final 'parametro 3: Finalidade do arquivo: 0 - Remessa do arquivo original | 1 - Remessa do arquivo substituto btnGerarArquivo.Enabled = True Screen.MousePointer = vbIconPointer End Sub