Or this: EditField2.Text = "&C" + Right( Cstr(EditField1.BackColor), 6 ) > This works also > > Dim v As Variant > > v = EditField1.BackColor > > EditField2.Text = "&C" + Right(v,6) > > > > Dim c As Color > > Dim v As Variant > > Dim s As String > > > > c = EditField1.BackColor > > v = c > > s = v > > > > MsgBox s > > > > If the EditField is the default BackColor the MsgBox will > > display &hFFFFFF > > > > If you want to display s as an RB color do this > > > > s = "&C" + Right(s,6)
_______________________________________________ Unsubscribe or switch delivery mode: <http://www.realsoftware.com/support/listmanager/> Search the archives of this list here: <http://support.realsoftware.com/listarchives/lists.html>
