【实例说明】
    在制作窗体背景色的时，选择自己喜欢的颜色。

【编程思路】
    使用API获取颜色（ChooseColor函数）。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置两个CommandButton控件、一个Picture框、一个Text控件。

    3.源程序  [素材源程序下载]


'使用API获取颜色
Private Declare Function ChooseColor Lib "comdlg32.dll" Alias _
        "ChooseColorA" (pChoosecolor As ChooseColor) As Long

Private Type ChooseColor
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        rgbResult As Long
        lpCustColors As String
        flags As Long
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type

'获取颜色值
Private Sub Command1_Click() '按钮
        Dim myCC As ChooseColor
        myCC.lStructSize = Len(myCC)
        myCC.hwndOwner = Me.hWnd
        myCC.hInstance = App.hInstance
        myCC.flags = 0
        myCC.lpCustColors = String$(16 * 4, 0)
        If ChooseColor(myCC) >= 1 Then
        Picture1.BackColor = myCC.rgbResult
                Text1.Text = "颜色值：" & myCC.rgbResult
        Else
                Text1.Text = "你取消了。"
        End If
End Sub

'退出
Private Sub Command2_Click()
        End
End Sub