Private Sub btnColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnColor.Click
  ColorDialog1.ShowDialog()
  Me.BackColor = ColorDialog1.Color
End Sub 'btnColor_Click