07-08-19, 06:42 PM
السلام عليكم ورحمة الله
لا ادري اين المشكل في الكود التالي
كود :
Dim time As DateTime = Conversions.ToDate(DateTime.Today.ToString)
If (DateTime.Compare(Conversions.ToDate(My.Settings.add), time) > 0) Then
Else
Me.Close()
End If