[Ameenh]

الحمد لله وجدت الحل شكرا على المشاركة

كود :

   Dim now As DateTime = DateTime.Now '************************************من اول يوم فى الشهر الحالى حتى اخر يوم الشهر
   Dim startDate = New DateTime(now.Year, now.Month, 1) '************************************************************
   Dim endDate = startDate.AddMonths(1).AddDays(-1) '**********************

ياتى باول يوم فى الشهر الحالى 

واخر يوم فى الشهر الحالى حتى لو كان 30 يوم او31 او 28

ولمن اراد التأكد يضيف (2) DatePicker.value و يساويها ب startDate او ب endDate