Been playing around a little with that QuickNotes script ... still doesn't actually send notes but was trying to make it look more professional ...

Re-arranged the buttons some. Created what can best be described as a "poor-mans-menu-bar" ... also added what can best be described as a "poor-mans-status-bar" ... need the real thing me thinks ...

code:
;
; KIXTART 4.0
; KIFORMS 2.0.3
;

$APPNAME = "QuickNotes"

Break On

$Form = CreateObject("Kixtart.Form")
$Form.Caption = $APPNAME
$Form.OnAbout = "About()"
$Form.BorderStyle = 6
$Form.FontSize = 10
$Form.FontName = "Arial"
$Form.Size = 400,350

$Frame = $Form.Frame
$Frame.Size = $Form.ClientWidth,53
$Frame.Location = 0,-5

$Send = $Form.Button
$Send.Caption = "Send"
$Send.Size = 60,40
$Send.Location = 2,$Frame.Top+10
$Send.OnClick = "Send()"
$Send.Appearance = 0
$Send.ToolTip = "Send your message now"

$Options = $Form.Button
$Options.Caption = "Options"
$Options.Size = 60,40
$Options.Location = $Send.Right-1,$Frame.Top+10
$Options.OnClick = "Options()"
$Options.Appearance = 0
$Options.ToolTip = "Customize settings"

$Exit = $Form.Button
$Exit.Caption = "Exit"
$Exit.Size = 60,40
$Exit.Location = $Options.Right-1,$Frame.Top+10
$Exit.OnClick = "Finish()"
$Exit.Appearance = 0
$Exit.ToolTip = "Exit without sending"

$Form.PrintXY(40,60,"To:")

$Address = $Form.ComboBox
$Address.Size = 310,100
$Address.Location = 70,$Frame.Bottom+5
$Address.MaxLength = 50
$Address.AutoTab = True
$Address.List = "joe@@hotmail.com","sam@@yahoo.com","sally@@sympatico.ca"
$Address.OnGotFocus = "$$Status.Text = 'Type recipients name'"

$Form.PrintXY(10,85,"Subject:")

$Subject = $Form.ComboBox
$Subject.Size = 310,100
$Subject.Location = 70,$Address.Bottom+5
$Subject.MaxLength = 50
$Subject.AutoTab = True
$Subject.List = "Emergency","Lunch","Meeting","Review","Status","Question"
$Subject.OnGotFocus = "$$Status.Text = 'Type the subject for this message'"

$Message = $Form.TextBox
$Message.Size = 388,180
$Message.Location = 3,$Subject.Bottom+5
$Message.MultiLine = True
;$Message.AcceptsTab = True
$Message.AcceptsReturn = True
$Message.OnGotFocus = "$$Status.Text = 'Type your message here'"

$Status = $Form.Label
$Status.Size = 388,20
$Status.Location = 3,$Message.Bottom + 5
$Status.BorderStyle = 5 ; Sunken
$Status.Text = "Ready"

$Form.ClientHeight = $Status.Bottom + 2
$Form.Center
$Form.Show

$Address.SetFocus

While $Form.Visible

$=Execute($Form.DoEvents)

Loop

Exit 1

Function Send()

$rs = $Form.MsgBox("Message sent (not really!)",$APPNAME,64)

EndFunction

Function About()

$rs = $Form.MsgBox("QuickNote v1.0",$APPNAME,32)

EndFunction

Function Options()

$rs = $Form.MsgBox("QuickNotes v1.0",$APPNAME,32)

EndFunction

Function Finish()

If $Form.MsgBox("Do you really wish to quit ?",$APPNAME,4) = 6

$Form.Hide

EndIf

EndFunction