VB工程--百例83--圆形颜色变换

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