在vb.net中创建用于突出显示文本的随机颜色

Private Function GenerateRandomColor() As Color
    Dim random As New Random()
    Dim red As Integer = random.Next(0, 256)
    Dim green As Integer = random.Next(0, 256)
    Dim blue As Integer = random.Next(0, 256)
    Return Color.FromArgb(red, green, blue)
End Function

Dim randomColor As Color = GenerateRandomColor()
yourControl.ForeColor = randomColor