Muuttaa lomakkeen taustaväriä. Koodi tarvitsee toimiakseen yhden timerin(Timer1). Sen Intervalin voit säätää mieleiseksesi ja sen tulee olla toiminnassa(Enabled).
'lyhyt koodi, jolla saadaan formiin satunnainen taustaväri
Private Sub Timer1Tick(sender As System.Object, e As System.EventArgs)
Dim col As New System.Drawing.Color
'Alustetaan satunnaislukugeneraattori nimeltään sat
Dim sat As New System.Random
'Käyttää FromArgb-metodia. Ensimmäinen arvo on alpha, sitten tulee R, G ja B.
Me.BackColor = col.FromArgb(255, sat.Next(0,256),sat.Next(0,256),sat.Next(0,256))
End SubAihe on jo aika vanha, joten et voi enää vastata siihen.