VB6 Code - Konversi Warna Long Ke RGB

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