[VB.Net][SRC]ProgressBar Color

[HF~Legend]

Code:

Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
       ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Code:

Public Class Form1
    Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal msg As Integer, _
       ByVal wParam As Integer, ByVal lParam As Integer) As Integer
    Private Sub btnYellow_Click(sender As System.Object, e As System.EventArgs) Handles btnYellow.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H3, 0) 'YELLOW
    End Sub

    Private Sub btnRed_Click(sender As System.Object, e As System.EventArgs) Handles btnRed.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H2, 0) 'RED
    End Sub

    Private Sub btnGreen_Click(sender As System.Object, e As System.EventArgs) Handles btnGreen.Click
        SendMessage(ProgressBar1.Handle, &H400 + 16, &H1, 0) 'GREEN
    End Sub
End Class

Source : unknown