code:

---

Break On

$Form = CreateObject("Kixtart.Form")
$Form.Width = 226
$Form.Height = 100
$Form.Text = "Solid ProgressBar"
$Form.Center

$PictureBox = $Form.PictureBox("",10,10,200,22)
$PictureBox.BorderStyle = 5

$CommandButton = $Form.CommandButton("Start",70,43,80,22)
$CommandButton.OnClick = "PBar()"

$Form.Show

While $Form.Visible
  $=Execute($Form.DoEvents())
Loop

Exit 1

Function PBar()
  $PictureBox.BackColor = $Form.BackColor
  $PictureBox.ForeColor = 0,0,255
  $PictureBox.FillColor = 0,0,255
  $PictureBox.FillStyle = 1
  For $count = 1 to 196
    $PictureBox.Rectangle(1,1,$count,18)
    $ticks = @ticks
    While @ticks<$ticks + 25
    Loop
  Next
EndFunction

---

code:

---

$Button.ToolTip = "Press me"

---

code:

---

$Button.ToolTip.Text = "Press Me"
$Button.ToolTip.Width = 50 ; Lines will wrap at 50
$Button.TollTip.Style = 1  ; Regular or Balloon ?

---