主题：关于颜色

 保存为数值

Dim c1 As Color = Color.Red
msgbox(c1.toargb)
Dim c2 As Color = Color.FromARGB(c1.toargb)

Tables("表A").Grid.BackColor = c2