String in Color wandeln und zurück

[Rudi Maier]

Hallo,

ich benutze folgenden Code (RB 2007)

  Dim c as Color
  Dim b as Boolean
  Dim v as Variant
  if EfFarbe.Text = "" then
    EfFarbe.Text = "&cFFFFFF"
  else
    v = EfFarbe.Text
    c=v
  end if

  b=SelectColor(c,"")
  if b then
    Rectangle1.FillColor=c
    EfFarbe.Text = str(c)
  end if

Funktioniert einwandfrei.

Mit RB 5.5.3 bleibt c jedoch immer 000000 (sw).

Wie funktionierts mit RB 5.5.3 ?

Rudi