Fecha Incrementar

Private avanza As Integer = 1

    Private Sub btn_fechas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_fechas.Click

        ' Fecha inicial y fecha actual
        ' Fecha inicial y fecha final



        Dim dt1 As String = "01-04-2020"
        Dim dt2 As String = "19-04-2020"


        Dim FechaInicial As DateTime = Convert.ToDateTime(dt1)
        Dim FechaFinal As DateTime = Convert.ToDateTime(dt2)

        Dim FechaInicialTemp As DateTime = FechaInicial
        Dim FechaFinalTemp As DateTime = FechaFinal

        While True
            If FechaInicial = FechaFinal Then
                avanza = -1
            End If

            Select Case avanza
                Case 0
                    FechaInicialTemp = FechaInicialTemp.AddDays(-1)
                    If FechaInicialTemp <= FechaInicial Then
                        'FechaInicialTemp = FechaInicialTemp.AddDays(1)
                        avanza = 1
                    End If
                    'MessageBox.Show(FechaInicialTemp)
                    WriteDate(FechaInicialTemp)
                Case 1
                    FechaInicialTemp = FechaInicialTemp.AddDays(1)
                    If FechaInicialTemp >= FechaFinal Then
                        avanza = 0
                    End If
                    WriteDate(FechaInicialTemp)
                    'MessageBox.Show(FechaInicialTemp)
                Case Else
                    'MessageBox.Show(FechaInicial)
                    Continue While
            End Select
        End While
    End Sub