كيف أغيّر لون أداة Brogressbar على vb.net؟

لون Progress bar يمكن تغيره على Vb.Net باستخدام الكود.

أولاً قم باضافة هذا السطر البرمجي داخل الكلاس :

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)>

الآن أنشئ عداد Timer واضف بداخله الكود التالي:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        val -= 1
        Label2.Text = val & " Sec"
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Enabled = False
        End If
        If ProgressBar1.Value > 23 Then
            SendMessage(ProgressBar1.Handle, 1040, 2, 0)
        End If
    End Sub

ملاحظة: 1 للون الأخضر، 2 للأحمر و3 للأصفر.