Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        ColorDialog1.ShowDialog()
        Dim Color1 As Color = ColorDialog1.Color
        Dim Color2 As Color = Color1 + RGB(2, 2, 2)
 
    End Sub

fg viperbone