How about this:

VB Code:
  1. Dim intRandRed As Integer, intRandGreen As Integer, intRandBlue As Integer

  2.  
  3.         Randomize()

  4.         intRandRed = Int((256) * Rnd())

  5.         Randomize()

  6.         intRandGreen = Int((256) * Rnd())

  7.         Randomize()

  8.         intRandBlue = Int((256) * Rnd())

  9.  
  10.  
  11.         System.Drawing.Color.FromArgb(intRandRed, intRandGreen, intRandBlue)