VB6 Code - Konversi Warna Dari RGB Ke Hex

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