Private Sub lnklblBackground_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnklblBackground.LinkClicked
Dim dr As New DialogResult
dr = ColorDialog1.ShowDialog()
If dr = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub
No comments:
Post a Comment