Break On $Form = CreateObject("Kixtart.Form") $Form.Icon = "SHELL32.DLL;10" $Form.Size = 225,270 $Form.BackColor = &80000003 $Form.FontSize = 18 $Form.ForeColor = 255,255,255 ; White $Form.PrintXY(10,5,"This is a button") $Form.DrawWidth = 3 $Form.Line(20,35,40,50) $Form.Line(30,50,40,50) $Form.Line(38,40,40,50) $Form.FontSize = 10 $Button1 = $Form.Button $Button1.Size = 100,100 $Button1.Center $Button1.Top = 40 $Button1.ToolTip = "This is an icon from shell32.dll" $Button1.Appearance = 0 ; flat $Button1.MousePointer = 16 ; Hand $SpinButton1 = $Form.SpinButton $SpinButton1.Top = $Button1.Bottom + 25 $SpinButton1.Left = $Button1.Left + 35 $SpinButton1.Width = 30 $SpinButton1.Height = 30 $SpinButton1.Min = 1 $SpinButton1.Max = 100 $SpinButton1.ToolTip = "Use me to change the picture in the button" $SpinButton1.OnChange = "SpinButton1_Change()" $HyperLink = $Form.HyperLink $HyperLink.Size = 150,40 $HyperLink.Center $HyperLink.Top = $SpinButton1.Bottom + 20 $HyperLink.Caption = "The KiXtart Bulletin Board" $HyperLink.Value = "http://www.kixtart.org" $HyperLink.ForeColor = 255,255,0 ; Yellow $HyperLink.ToolTip = "Follow me to Kixtart.org ..." $SpinButton1.Value = 1 $Button1.Picture = "SHELL32.DLL;"+$SpinButton1.Value $Form.Center $Form.Show While $Form.Visible $=Execute($Form.DoEvents) Loop Exit 1 Function SpinButton1_Change() $Button1.Picture = "SHELL32.DLL;" + $SpinButton1.Value EndFunction