Private kb As CheckBox
Private sa As ScrollArea

Public Sub Form_Open()
Dim obs As Observer
Dim i As Integer


  sa = TableView2.Children[0]

  obs = New Observer(sa) As "Scroll"
  
   With TableView2
    .W = 882
    .H = 280
    .Columns.Count = 3
    .Rows.Count = 30
  End With
   
  TableView2.Columns[0].W = 70
  TableView2.Columns[1].W = 110
  TableView2.Columns[2].W = 120

For i = 1 To 5
  With kb = New CheckBox(sa) As "CheckBox"
    .X = TableView2.Columns[2].X
    .Y = TableView2.Rows[i].Y
    .W = TableView2[i, 0].W
    .H = TableView2[i, 0].H
    .Text = "Prova"  
    .Name = "CheckBox"
  End With
Next  
End

Public Sub TableView2_Click()
  TableView2.Edit
 End

Public Sub TableView2_Save(Row As Integer, Column As Integer, Value As String)
TableView2[row, column].Text = Value
Print Value
End

Public Sub Button1_Click()
Dim i As Integer
Dim a As Boolean
Dim b As String

  For i = 0 To 5
    a = TableView2[i, 2].Text  ' CheckBox.Value?? '
    b = TableView2[i, 0].Text
  Print b, a
  Next

End

Public Sub MaskBox1_LostFocus()
  Dim a1 As String
  Dim a2 As String
  
  a1 = Replace(MaskBox1.Text, " ", "0")
  a2 = Month(a1) & "/" & Day(a1) & "/" & Year(a1)
  MaskBox1.Text = a2
  Print a2
End

Dim a1 As String
a1 = CDate(Replace(MaskBox1.Text, " ", "0"))
MaskBox1.Text = a1
Print MaskBox1.Text
End

Private hControl As Object
Private Px As New Integer[]
Private Py As New Integer[]
Private Pw As New Integer[]
Private Ph As New Integer[]
Private Fs As New Integer[]
Private Mw As Integer
Private Mh As Integer

Public Sub Form_Open()
 frmcli.Top = True
  frmcli.y = FMain.Height + 30
  Mod_Open.controlla_db()
  
  verifica_tab
  lista_tab
  grid_carica
  foglio_fattura
   
   Print Me.Controls.Count
 
For Each hControl In Me.Controls
      Px.Add(hControl.x)
      Py.Add(hControl.y)
      Pw.Add(hControl.w)
      Ph.Add(hControl.h) 
      Fs.Add(hControl.Font.size)  
      Next

  Mw = Me.W
  Mh = Me.h
 
End

Public Sub form_Resize()
  
  Dim cx, cy As Float
  Dim Nw, Nh, i As Integer

  Nw = Me.W
  Nh = Me.h

  Cx = Nw / Mw
  Cy = Nh / Mh
  
  i = 0
  
  For Each hControl In Me.Controls
    hControl.x = Px[i] * Cx
    hControl.y = Py[i] * Cy
    hControl.w = Pw[i] * Cx
    hControl.h = Ph[i] * Cy
    hControl.Font.size = Fs[i] * Cx
    Inc i
  
  Next
  
End