[ѕαLσσσмx]

كود :

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        Dim cd As New ColorDialog
        With cd
            If .ShowDialog = Windows.Forms.DialogResult.OK Then
                Panel1.BackColor = .Color
            End If

        End With
    End Sub