Thanks Carlos,
Works great too.
Lennox.
Carlos M <[EMAIL PROTECTED]> wrote: 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:
Search the archives of this list here:
---------------------------------
Yahoo! Photos Showcase holiday pictures in hardcover
Photo Books. You design it and well bind it!
_______________________________________________
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>
