Kostenloser Download
Sourcecode Beispiele
Private Sub ButtonChangeCol_Click()
On Error Resume Next
Err.Clear
CommonDialogButtonCol.CancelError = True
CommonDialogButtonCol.ShowColor
If Not (Err.Number > 0) Then
AktButtonColor = CommonDialogButtonCol.Color
SetButtonColor
End If
End Sub
|