Ok, seems that the TopMost thingy was what I was talking about. [Smile]

The OLE thingy would be awesome as well and would probably add another 1.5 months of car washing to your tab.

I think you know what I'm talking about with the tooltip thingy, but I'll include an example. Look at the 'User' listbox tooltip behavior on this script...

code:
break on cls

$TITLE = "KiX Manager"

$FORM = CREATEOBJECT("Kixtart.FORM")

$FORM.CAPTION = $TITLE
$FORM.SCALEHEIGHT = 400
$FORM.SCALEWIDTH = 605
$FORM.FONTNAME = "Arial"
$FORM.FONTSIZE = 9
$FORM.CENTER
$FORM.TopMost = True

$fraBanner = $FORM.PictureBox
$fraBanner.BACKCOLOR = $FORM.RGB(255,255,255)
$fraBanner.HEIGHT = 70
$fraBanner.LEFT = 10
$fraBanner.TOP = 10
$fraBanner.WIDTH = 585
$fraBanner.FONTSIZE = 20
$fraBanner.FONTNAME = "verdana"
$fraBanner.ForeColor = 0
$fraBanner.PrintXY (70,0,"KiX Manager")
$fraBanner.FONTSIZE = 8
$fraBanner.ForeColor = $FORM.RGB(0,100,100)
$fraBanner.PrintXY (73,32,"Powered by KiX v@KIX and Kixforms v"+$Form.Version)
$fraBanner.FONTBOLD = 1
$fraBanner.FONTSIZE = 11
$fraBanner.PrintXY (73,46,"Welcome @FULLNAME")
$fraBanner.FONTBOLD = 0
$fraBanner.FONTSIZE = 10

$picBanner = $fraBanner.Image
$picBanner.Picture = "shell32.dll;18"
$picBanner.HEIGHT = 50
$picBanner.LEFT = 5
$picBanner.TOP = 5
$picBanner.WIDTH = 50

$fraDetails = $FORM.Frame("Details")
$fraDetails.HEIGHT = 300
$fraDetails.LEFT = 10
$fraDetails.TOP = 90
$fraDetails.WIDTH = 585

$lstDomains = $fraDetails.ComboBox
$lstDomains.LEFT = 100
$lstDomains.TOP = 30
$lstDomains.WIDTH = 150
$lstDomains.OnClick = "funcChooseDomain()"

$lblDomains = $fraDetails.Label("Domain: ")
$lblDomains.WIDTH = 75
$lblDomains.LEFT = $lstDomains.LEFT - $lblDomains.WIDTH
$lblDomains.TOP = $lstDomains.TOP+2
$lblDomains.Alignment = 1

$objNamespace=GetObject("WinNT:")
for each $Domain in $objNamespace
$lstDomains.Additem ($Domain.Name)
next
$lstDomains.Value=@Domain

$lstComputers = $fraDetails.ListBox
$lstComputers.HEIGHT = 80
$lstComputers.LEFT = 100
$lstComputers.TOP = 60
$lstComputers.WIDTH = 150

$lblComputers = $fraDetails.Label("Computers: ")
$lblComputers.WIDTH = 75
$lblComputers.LEFT = $lstComputers.LEFT - $lblComputers.WIDTH
$lblComputers.TOP = $lstComputers.TOP+2
$lblComputers.Alignment = 1

$lstUsers = $fraDetails.ListBox
$lstUsers.HEIGHT = 80
$lstUsers.LEFT = 100
$lstUsers.TOP = 150
$lstUsers.WIDTH = 150

$lblUsers = $fraDetails.Label("Users: ")
$lblUsers.WIDTH = 75
$lblUsers.LEFT = $lstUsers.LEFT - $lblUsers.WIDTH
$lblUsers.TOP = $lstUsers.TOP+2
$lblUsers.Alignment = 1
$lstUsers.OnClick = "ToolTip()"

$Wait = CREATEOBJECT("Kixtart.FORM")
$Wait.CAPTION = $TITLE
$Wait.SCALEWIDTH = 350
$Wait.SCALEHEIGHT = 100
$Wait.FONTSIZE = 14
$Wait.FONTNAME = "Arial"
$Wait.PrintXY (30,30,"Searching, one moment please...")
$Wait.CENTER

$FORM.Show
$nul=funcChooseDomain()

While $FORM.Visible
$nul=Execute($FORM.DoEvents)
Loop
$test

exit()

function funcChooseDomain()
$Wait.Show
$lstComputers.Clear
$lstUsers.Clear
$lstUsers.ToolTip=""
$objDomain=GetObject("WinNT://"+$lstDomains.Value)
$objComputers=GetObject("WinNT://"+$objDomain.name)
$objComputers.Filter="Computer",""
for each $objComputer in $objComputers
$lstComputers.Additem ($objComputer.Name)
next
$objUsers=GetObject("WinNT://"+$objDomain.name)
$objUsers.Filter="User",""
for each $User in $objUsers
$lstUsers.Additem ($User.Name)
next
$Wait.Hide
endfunction

function ToolTip()
$FORM.MousePointer = 13
$objUser=GetObject("WinNT://"+$objDomain.name+"/"+$lstUsers.Value+",user")
$lstUsers.ToolTip = $objUser.FullName
$FORM.MousePointer = 0
endfunction

BTW, this script is just something I'm playing around with to get a handle on using KiXForms and doesn't do anything useful yet. [Wink]