[mac9]

كود :

Dim d1 As Date = CDate(ListView1.Items(0).SubItems(3).Text)
Dim d2 As Date = Today

Dim dif = DateDiff(DateInterval.Day, d1, d2)
If dif >= 30 Then
   TextBox1.Text = d1
End If

موضوعك ينقصه الكثير من التوضيح!!

اخي الغالي ماذا تقصد لو هناك اكثر من تاريخ ؟ 
لانه هي خانة تحتوي على تواريخ اكيد حيصير بيها اكثر من تاريخ 
مثلا 5 تواريخ قد عبرت مدة ال30 يوم