Hi Redback,

You can achieve a solid ProgressBar in code. Try the following out to give you an idea:

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
{Edit}Edited code so that the PictureBox clears when the start button is pressed.{/Edit}

Rod.

[ 03. October 2002, 13:07: Message edited by: rclarke ]