Skift farve på tekst, hvis der er valgt mørk baggrundsfarve.

If Form1.BackColor = vbWhite Then
Form1.ForeColor = vbBlack
Else
Form1.ForeColor = vbWhite
End If

ken du ikke udbygge denne

Her er en funktion, der (lidt forsimplet) laver en farve om til en gråtone.

Function gråtone(farve As Long) As Long
  Dim r As Integer
  Dim g As Integer
  Dim b As Integer
  Dim grå As Integer
 
  r = farve And &HFF&
  g = (farve \ 256) And &HFF&
  b = (farve \ 65536) And &HFF&
  grå = (r + g + b) \ 3
  gråtone = grå + 256& * grå + 65536 * grå
End Function


Den kan du fx bruge sådan:

If (gråtone(Form1.BackColor) And &HFF) < 128 Then
  Label1.ForeColor = vbWhite
Else
  Label1.ForeColor = vbBlack
End If

Du kan justere grænsen (128) hvis det ikke passer.

well brugeren har også mulighed for fx at vælge rød og blå osv...

kan man ikke lave en eller anden funktion, der siger at hvis værdien er mørkere (lavere) end fx halvdelen, så skal farven skiftes?

hmm okay måske kan din alligevel bruges... havde ikke set præcist hvordan den virker... prøver den lige og vender tilbage.....

virker som en drøm, mange tak :)

Velbekomme ;)