Vb.net 在Visual Basic中更改进度条的颜色

Im使用：Visual Studio 2013（Visual Basic）>>不导入导入

SendMessage

：

<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As Integer, ByVal lParam As Integer) As IntPtr
    End Function

颜色代码：

1: green
2: red
3: yellow

---

可能重复的Look-into…@Alexander Falkesund我同意它不是重复的（因为它是错误的语言），然而，在C#中可能的任何东西通常都可以相当容易地翻译成VB（反之亦然）。看看-看起来不错。我应该把颜色代码放在代码的什么地方？第三个参数是一个整数，设置颜色，显然只有这三种颜色可用。

1: green
2: red
3: yellow