FORMATAR COLUNAS EM FLEXGRID

JEANMT 11/05/2016 19:34:09
#462011

estou com problemas em formatar uma coluna no flex grid como unidade monetaria meu codigo esta assim

Private Sub Flex_DblClick()

On Error GoTo semCad

Form_Activate

If frmUser.txtFuncao = [Ô]OSPRO[Ô] Then
frmOrdem.txtCod.Text = Flex.TextMatrix(Flex.Row, 0)
frmOrdem.txtDes.Text = Flex.TextMatrix(Flex.Row, 1)
frmOrdem.txtObs.Text = Flex.TextMatrix(Flex.Row, 7)

Unload Me
Else
frmDadPro.Show
frmDadPro.txtCod.Text = Flex.TextMatrix(Flex.Row, 0)
frmDadPro.txtDes.Text = Flex.TextMatrix(Flex.Row, 1)
frmDadPro.txtFor.Text = Flex.TextMatrix(Flex.Row, 2)
frmDadPro.txtQua.Text = Flex.TextMatrix(Flex.Row, 3)
frmDadPro.txtPag.Text = Flex.TextMatrix(Flex.Row, 4)
frmDadPro.txtRev.Text = Flex.TextMatrix(Flex.Row, 5)
frmDadPro.txtDat.Text = Flex.TextMatrix(Flex.Row, 6)
frmDadPro.txtMod.Text = Flex.TextMatrix(Flex.Row, 7)
frmDadPro.txtObs.Text = Flex.TextMatrix(Flex.Row, 8)
frmDadPro.Caption = [Ô]Consulta do Produto [Ô] & Flex.TextMatrix(Flex.Row, 0)
frmDadPro.Caption = [Ô]Consulta do Produto [Ô] & Flex.TextMatrix(Flex.Row, 1)



End If

semCad:
Select Case Err.Number
Case 380
MsgBox [Ô]Não existem registros cadastrados![Ô], vbOKOnly + vbExclamation, [Ô]Gestor.SyS[Ô]
Unload frmDadPro
Case 0
Case Else
MsgBox Err.Description, , Err.Number
End Select
End Sub