open System
open System.Drawing
open System.Windows.Forms
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
let mycursorsform=new Form(Text="Cursors")
let handlbl=new Label(Text="Hand Cursor",AutoSize=true,Top=10,Left=120)
let appcursor=new Label(Text="AppStarting Cursor",AutoSize=true,Top=40,Left=120)
let arrwlbl=new Label(Text="Arrow Cursor",AutoSize=true,Top=70,Left=120)
let crsslbl=new Label(Text="Cross Cursor",AutoSize=true,Top=100,Left=120)
let waitlbl=new Label(Text="Wait Cursor",AutoSize=true,Top=130,Left=120)
let helplbl=new Label(Text="Help Cursor",AutoSize=true,Top=160,Left=120)
let nolbl=new Label(Text="No Cursor",AutoSize=true,Top=190,Left=120)
mycursorsform.Controls.Add(handlbl)
mycursorsform.Controls.Add(appcursor)
mycursorsform.Controls.Add(arrwlbl)
mycursorsform.Controls.Add(crsslbl)
mycursorsform.Controls.Add(waitlbl)
mycursorsform.Controls.Add(helplbl)
mycursorsform.Controls.Add(nolbl)
handlbl.MouseHover.Add(fun disphandcursor->
handlbl.ForeColor<-Color.Red
handlbl.Cursor<-Cursors.Hand
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
handlbl.Font<-ffont)
handlbl.MouseLeave.Add(fun changefontsize->
handlbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
handlbl.Font<-ffont)
appcursor.MouseHover.Add(fun dispappcursor->
appcursor.ForeColor<-Color.Red
appcursor.Cursor<-Cursors.AppStarting
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
appcursor.Font<-ffont)
appcursor.MouseLeave.Add(fun retainsfontsize->
appcursor.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
appcursor.Font<-ffont)
arrwlbl.MouseHover.Add(fun disparrowcursor->
arrwlbl.ForeColor<-Color.Red
arrwlbl.Cursor<-Cursors.Arrow
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
arrwlbl.Font<-ffont)
arrwlbl.MouseLeave.Add(fun changefontsize->
arrwlbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
arrwlbl.Font<-ffont)
crsslbl.MouseHover.Add(fun dispcrosscursor->
crsslbl.ForeColor<-Color.Red
crsslbl.Cursor<-Cursors.Cross
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
crsslbl.Font<-ffont)
crsslbl.MouseLeave.Add(fun changefontsize->
crsslbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
crsslbl.Font<-ffont)
waitlbl.MouseHover.Add(fun dispwaitcursor->
waitlbl.ForeColor<-Color.Red
waitlbl.Cursor<-Cursors.WaitCursor
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
crsslbl.Font<-ffont)
waitlbl.MouseLeave.Add(fun changefontsize->
waitlbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
waitlbl.Font<-ffont)
helplbl.MouseHover.Add(fun disphelpcursor->
helplbl.ForeColor<-Color.Red
helplbl.Cursor<-Cursors.Help
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
crsslbl.Font<-ffont)
helplbl.MouseLeave.Add(fun changefontsize->
helplbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
helplbl.Font<-ffont)
nolbl.MouseHover.Add(fun dispnocursor->
nolbl.ForeColor<-Color.Red
nolbl.Cursor<-Cursors.No
let ffont=new System.Drawing.Font("Times New Roman",12.0F)
crsslbl.Font<-ffont)
nolbl.MouseLeave.Add(fun changefontsize->
nolbl.ForeColor<-Color.Empty
let ffont=new System.Drawing.Font("Times New Roman",9.0F)
nolbl.Font<-ffont)
mycursorsform.Show()
Application.Run(mycursorsform)