Me.MSHFG_CasCalc.CellForeColor = rst!Color

Private Sub btn_SetColor_Click()
On Error GoTo errlbl
    Dim cc As ChooseColor
    Dim Custcolor( 16 ) As Long
    Dim lReturn As Long
  
    cc.lStructSize = Len(cc)
    cc.hwndOwner = Me.hwnd
    cc.hInstance =  0 
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    cc.flags =  0 
    lReturn = ChooseColor(cc)
    If lReturn <>  0  Then
            'Me.Caption = "RGB Value User Chose: " & str$(cc.rgbResult)
            Me.fld_color.BackColor = cc.rgbResult            ' Visual Basic only ****
            'CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
            'MsgBox cc.rgbResult
        Else
            'MsgBox "User chose the Cancel Button"
    End If
    
    Exit Sub

errlbl:
    MsgBox "Форма < Sprv_param >, процедура < btn_SetColor_Click >" & Chr( 13 ) & _
            Err.Description, vbCritical + vbOKOnly, "Ошибка: " & Err.Number
End Sub