Do loop until รบกวนช่วยแนะนำทีครับ มันErrorครับ

[toon10510]

อาจารย์ครับ ผมต้องการให้คลิ๊กแล้วโปรแกรมทำการวนลูป ลบค่าใน Textbox1 ลงเรื่อยๆ(อัตโนมัติ)จนกว่า label2จะ มากกว่าหรือเท่ากับศูนย์ครับ
แต่มัน Error ครับรบกวนแนะนำการเขียน Code ทีครับ

[snasui]

ตัวอย่าง Code ตามด้านล่างครับ

Code: Select all

Private Sub CommandButton1_Click()
    TextBox1 = 2000
    Do
        If Val(Label2.Caption) <= 0 Then
            TextBox1.Value = Val(TextBox1.Value) - 10
        End If
    Loop Until Val(Label2.Caption) > 0
End Sub

Private Sub TextBox1_Change()
    Label2.Caption = Val(Label1.Caption) - Val(TextBox1.Value)
End Sub

[toon10510]

ขอบคุณ ครับอาจารย์ ได้ความรู้เพิ่มครับผม