Перестал работать код - VB

Формулировка задачи:

Здравствуйте ребята помогите в вопросе,до недавнеговремени код работал, сейчас перестал, что за проблема непойму?

Private Sub Spin1_SpinUp()
Dim lEndMonthDay As Long, dDate As Date
  dDate = Date
    lEndMonthDay = Day(DateSerial(Year(dDate), Month(dDate) + 1, 0))
If Spin1.Value > lEndMonthDay Then Spin1.Value = 1
    Text1.Text = Text1.Text + 1
End Sub

Решение задачи: «Перестал работать код»

textual
                            Листинг программы 
                        
                             TextBox1.Value = SpinButton1.Value

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы