Imports System
Class Program
Private Shared Function GenerateRandomHexColor() As String
Dim hexChars = "0123456789ABCDEF"
Dim rand = New Random()
Dim hex = ""
For i As Integer = 0 To 6 - 1
hex += hexChars(rand.[Next](16))
Next
Return hex
End Function
Public Shared Sub Main()
Console.WriteLine($"Random HEX Color: #{GenerateRandomHexColor()}")
End Sub
End Class
' run:
'
' Random HEX Color: #3121E4
'