想得到字体的颜色,直接返回可以得到数字,如何用得到vbRed形式!

没理解你的意思，如下是你想要的？
255,255,255
255,0,255
255,0,0
0,0,0
0,255,0
.........

上面的是RGB，或者下面是你要的？
vbBlack &H0 黑色
vbRed &HFF 红色
vbGreen &HFF00 绿色
vbYellow &HFFFF 黄色
vbBlue &HFF0000 兰色
vbMagenta &HFF00FF 洋红
vbCyan &HFFFF00 青色
vbWhite &HFFFFFF 白色

我的意思是如何用程序来判断一个字符串的字体颜色,返回像vbRed这种形式的值!

我没发现VB的字符串有这种功能

我想你是要得到RichTextBox中某个选择字符串的颜色，可以用它的属性selcolor来返回

看看这个合你意否？
Private Sub Command1_Click()
If Label1.ForeColor = &HFF& Then
Label2.Caption = "label1字体颜色是vbred"
End If
End Sub

一个字符,返回其颜色?返回的颜色形式有几种?

说清楚一点，你具体是想要什么

在VB中，字符和字符串是一个意思
没有字符的类型
字符是 string * 1