Hej
jag har en fråga till er kunniga.
Hur gör man för att byta bakgrundsfärg var 10:onde sekund
Har lyckts att få den att byta en gång men sen vill den inte mer

Tacksam för Svar

Hej
Testa det här med en Timer du väljer Interval 10sek 10000

Option Explicit
Private Sub Form_Load()
Randomize
End Sub

Private Sub Timer1_Timer()
Dim R As Long, G As Long, B As Long
R = Int(Rnd * 256)
G = Int(Rnd * 256)
B = Int(Rnd * 256)
Form1.BackColor = RGB(R, G, B)
End Sub

mvh
Sven