تنقيص يوم من التاريخ الهجري

بسم الله الرحمن الرحيم

استخدمت الكود التالي لكتابة التاريخ الهجري في التكست بوكس1

فكيف أجعل التكست بوكس 2 ينقص يوم واحد عن الأول

وشكرا

الكود

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dt As DateTime = DateTime.Now
        Dim ci As System.Globalization.CultureInfo = My.Application.Culture.Clone
        ci.DateTimeFormat.Calendar = New System.Globalization.HijriCalendar
        Me.TextBox1.Text = dt.ToString("dd MMM yyyy", ci)
    End Sub