http://blog.naver.com/PostView.nhn?blogId=lcsco&logNo=120149891632

Public Class Form1
    Dim rand As New Random
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim r, g, b As Integer
        r = rand.Next(0, 255)
        g = rand.Next(0, 255)
        b = rand.Next(0, 255)
        Me.BackColor = Color.FromArgb(r, g, b)
    End Sub
End Class

* 버튼을 클릭 할때마다 랜덤하게 색상 변경

Public Class Form1
    Dim r, g, b As Integer
    Dim rand As New Random
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        r = Rand.next(0, 255)
        Randomize()
        g = rand.Next(0, 255)
        Randomize()
        b = rand.Next(0, 255)
        BackColor = Color.FromArgb(r, g, b)
        Label1.Text = "색상값  R :  " + CStr(r) + " / G : " + CStr(g) + " / B : " + CStr(b)
    End Sub