global theDialog Sub dialogOnLoad(event) theDialog = event.source End Sub sub buttonClick(event) theButton = theDialog.getControl("CommandButton1") theTextField = theDialog.getControl("TextInfo") colors = Array(rgb(255,0,0),rgb(0,255,0),rgb(0,0,255)) rank = getSystemTicks() mod 3 theDialog.Model.BackgroundColor = colors(rank) theTextField.text = cstr(Now) + chr(10)+"Color " + cstr(rank) + " randomly applied" theButton.label = "Click Me to change color" end sub