VB6 Code Konversi Warna Dari Qbcolor Ke RGB

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari QBColor ke RGB. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub QBColorToRGB(QBColorValue As Integer)
    QBColorToRGB = LongToRGB(QBColor(QBColorValue))
End Sub