颜色值转换问题？在线等，急

Question

我想将＂&H80000000&＂这种表示的颜色值转换成数值型的，请问大家该如何来实现，谢谢！急．

Answer 1

用API函数GetSysColor来实现。例如：
Option ExplicitPrivate Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As LongPrivate Sub Form_Load()
    Debug.Print GetSysColor(&H8000000E - &H80000000)
    End
End Sub

Answer 2

可以用RGB值表示：me.backcolor=rgb(100,200,20)