Plus don't forget, there is a whole suite of powerfull graphic functions built into Kixforms for desiging custom controls, fe. don't like how the frame object looks - just design your own using the generic PictureBox control with a custom paint job [Wink] :

code:
Break On
  
$frmMain = CreateObject("Kixtart.Form")
$frmMain.Size = 400,200
$frmMain.SysMenu = 0
$frmMain.Text = "Welcome to the @DOMAIN Domain"
$frmMain.Center
$frmMain.BackColor = MediumAquaMarine
 
$fraStatus = $frmMain.PictureBox
$fraStatus.BackColor = $frmMain.BackColor
$fraStatus.BorderStyle = 0
$fraStatus.Location = 10,10
$fraStatus.Right = $frmMain.ClientWidth - 10
$fraStatus.Bottom = 0.70 * $frmMain.ClientHeight - 10
$fraStatus.ForeColor = DarkGreen
$fraStatus.FontBold = 1
$fraStatus.Rectangle(0,7,$fraStatus.ClientWidth-7,$fraStatus.ClientHeight-7)
$fraStatus.ForeColor = Blue
$fraStatus.FontTransparent = False
$fraStatus.PrintXY(5,0," Caption ")
 
$prgStatus = $fraStatus.ProgressBar
$prgStatus.BackColor = Khaki
$prgStatus.ForeColor = $fraStatus.ForeColor
$prgStatus.BorderStyle = 2
$prgStatus.Size = 260, 17
$prgStatus.Center
$prgStatus.Top = 40
 
$btnDo = $frmMain.Button
$btnDo.Text = "Do"
$btnDo.OnClick = "btnDo_Click"
$btnDo.Center
$btnDo.Top = $fraStatus.Bottom + 10
 
Function btnDo_Click
 For $i = 0 to $prgStatus.Max
  $prgStatus.Value = $i
  Sleep 0.010
 Next
 $prgStatus.Value = 0
EndFunction
 
$frmMain.Center
$frmMain.Show
While $frmMain.Visible
 $=Execute($frmMain.DoEvents)
Loop


[ 06. November 2002, 18:15: Message edited by: Shawn ]