VB6 Code - Konversi Warna dari QBColor ke RGB

Di bawah ini merupakan fungsi 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