这是win7和xp的兼容性问题，要解决这个问题，点击菜单“项目”--“windowsApplication1属性”，取消“启用XP视觉样式”选项。看图：
创新互联服务项目包括港南网站建设、港南网站制作、港南网页制作以及港南网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，港南网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到港南省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
R/G/B值最小是0最大是255属Byte值类型
Dim
cr
As
Color
=
控件.BackColor
'获取控件背景色
Dim
alpha
As
Byte
=
cr.A
'透明度
Dim
R
As
Byte
=
cr.R
'R值
Dim
G
As
Byte
=
cr.G
'G值
Dim
B
As
Byte
=
cr.B
'B值
Dim
outAcr
As
Color
=
Color.FromArgb(alpha,
R,
G,
B)
'创建带有透明通道的ARGB颜色
Dim
outcr
As
Color
=
Color.FromArgb(R,
G,
B)
'创建不透明的RGB颜色
在Private Sub DataGridView1_CellFormatting(.....)事件中加入代码：
e.cellstyle.baclcolor=color.red
记得VB6当中有Shape控件，但是VB.net里这个控件不存在了。
提个思路：使用Picture控件或Label控件，通过代码在控件里绘图想要的图形，可以试试。