Почему не работает Message.Create, или как изменить цвет ProgressBar?

'Декларируем API
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
 
'Меняем цвет
SendMessage(ProgressBar1.Handle, &H400 + 16, &H3, 0) 'YELLOW
SendMessage(ProgressBar1.Handle, &H400 + 16, &H2, 0) 'RED
SendMessage(ProgressBar1.Handle, &H400 + 16, &H1, 0) 'GREEN

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Me.ComboBox1.Text = "GREEN" Then Me.WndProc(Message.Create(Me.ProgressBar1.Handle, &H400 + 16, &H1, 0))
        If Me.ComboBox1.Text = "YELLOW" Then Me.WndProc(Message.Create(Me.ProgressBar1.Handle, &H400 + 16, &H3, 0))
        If Me.ComboBox1.Text = "RED" Then Me.WndProc(Message.Create(Me.ProgressBar1.Handle, &H400 + 16, &H2, 0))
    End Sub