千篇一律的风格,不能漂亮一点儿吗?我们来给它点儿颜色看看,哈哈
```
Private Declare Function SetSysColors Lib "user32" ( _
ByVal nChanges As Long, _
lpSysColor As Long, _
lpColorvalues As Long) As Long
Declare Function GetSysColor Lib "user32" ( _
ByVal nIndex As Long) As Long
Const COLOR_WINDOWTEXT = 8
Const COLOR_CAPTIONTEXT = 9
Sub CustomMsgBoxFont()
Dim lngRes As Long
Dim lngWinText As Long
Dim lngCapText As Long
lngWinText = GetSysColor(COLOR_WINDOWTEXT)
lngCapText = GetSysColor(COLOR_CAPTIONTEXT)
lngRes = SetSysColors(1, COLOR_WINDOWTEXT, vbRed)
lngRes = SetSysColors(1, COLOR_CAPTIONTEXT, vbYellow)
MsgBox "黄色标题,红色文字!", 32, "彩色提示框"
lngRes = SetSysColors(1, COLOR_WINDOWTEXT, lngWinText)
lngRes = SetSysColors(1, COLOR_CAPTIONTEXT, lngCapText)
MsgBox "红色标题,绿色文字!", 32, "彩色提示框"
End Sub
```
两个API就搞定了,看看彩色效果如何。