VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)  
    Blue = Color \ 65536  
    Green = (Color - Blue * 65536) \ 256  
    Red = Color - (Blue * 65536) - (Green * 256)  
End Sub  

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()   
    Dim red 
    Dim green 
    Dim blue 
    Call LongToRGB(CLng("23489"), red, green, blue) 
    MsgBox red & "," & green & "," & blue 
End Sub