VB6 Code - Konversi Warna dari RGB ke HEX

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

Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer) 
    RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2) 
End Function 

Contoh penggunaan fungsi konversi warna dari RGB ke HEX

Private Sub Command1_Click() 
    MsgBox RGBToHex(0, 0, 12) 
End Sub