open System.Windows.Forms
open System.Drawing

let f = new Form(Text="Clock", TopMost= true)

type AnalogClock()=
     inherit UserControl()

     let mutable current = 0.f
     let mutable x,y = 10.f,10.f

     member this.DateTIme
          with get() = current
          and set(v) = current <- v;

     override this.OnPaint e =
          let g = e.Graphics
          let t = g.Transform
          let transform = g.Transform
          t.Translate(x,y)
          g.Transform <- t
          g.DrawRectangle(Pens.Red, 0.f, 0.f,50.f,50.f)
          g.Transform <- transform
          x <- x + 1.f
          y <- y + 1.f





///////////////////////////////////////////////
let mutable clock1 = new AnalogClock(Size=Size(f.Width, f.Height))

let t = new Timer(Interval=50)
t.Tick.Add(fun _ ->
     clock1.Invalidate() //Importantissimo altrimenti non va
     f.Invalidate()
     clock1.Size <- Size(f.Width, f.Height)
     )
t.Start()

f.Controls.Add(clock1)



Application.Run(f)