form1.forecolor=&Hcc00cc因为VB中没有vbpurple这个常量，所以你的代码不行，直接用户16进制颜色值就可以了，后面6位分别代表红绿蓝三种颜色的分量，范围从00-FF，最终表现按照自然规律，例如上图红色与蓝色合成紫色，具体可以调节。
你用的那个 vbpurple 不是VB颜色常量 你试试这个Form1.ForeColor = VbMagenta
