Option Explicit

Private Sub Command1_Click()
cdl1.ShowColor
'打开颜色对话框（关键）
Shape1.BorderColor = cdl1.Color
'圆形shape1的边框颜色是在颜色对话框中所在的颜色
End Sub

Private Sub Command2_Click()
cdl1.ShowColor
Shape2.BorderColor = cdl1.Color
End Sub