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 nuovo_pic()
Dim area As DrawingArea
  area = New DrawingArea(Scr) As "HPic" 
  Pic.Add(area)
  Pic[Pic.Max].Move(40, 5 + (50 * Pic.Max), 595, 40)
  Pic[Pic.Max].X = (Scr.Width - Pic[Pic.Max].W) / 2
  Pic[Pic.Max].Background = &00FFFFFF  
  Pic[Pic.Max].Border = Border.Plain
  Pic[Pic.Max].Tag = Pic.Max
  
  page = Pic.Count
End

Public Sub HPic_Draw()
Paint.Begin(Last)

    Paint.Font.Name = "Arial"
    Paint.Font.Size = 16
    Paint.DrawText("Pagina N°" & page, 300, 20)

Paint.Fill()
Paint.End() 

End

Private rsquote As Result

Public Sub Report_Open()

Dim sql As String
Mod_Conn.db_apro

sql = "SELECT * FROM soci INNER JOIN quote ON soci.idsoci = quote.idsoci WHERE Anno = '" & FrmSoci.TextBox4.Text & "' ORDER BY soci.Cognome " 
    rsquote = Mod_Conn.$conn.Exec(sql)
    ReportHBox1.DataCount = rsquote.Count
    reportlabel5.Text = FrmSoci.Label10.Text
End

Public Sub ReportLabel1_Data(Index As Integer)

  rsquote.MoveTo(Index)
  Last.Data = rsquote!Cognome

End

Public Sub ReportLabel2_Data(Index As Integer)

  rsquote.MoveTo(Index)
  Last.Data = rsquote!Anno

End

Public Sub ReportLabel3_Data(Index As Integer)

  rsquote.MoveTo(index)
  Last.data = Format$(rsquote!Importo, "$$0.#0") 

End

Public Sub TextBox1_LostFocus()

Dim a As Float
a = Val(TextBox1.Text) / 100
TextBox1.text = Format$(a, "0.#0")
TextBox2.Text = Val(TextBox1.Text)

End

Public Sub Button4_Click()

Dim db_anagrafica As New Connection
Dim rs_soci As Result  
Dim sql As String
Dim codice As Integer

With db_anagrafica
  .Type = "sqlite3"
  .Host = Application.Path
  .Name = "anagrafica"
  .Open
 
End With
rs_soci = db_anagrafica.Exec("SELECT * FROM soci") ' query di selezione 
rs_soci.MoveLast ' ultimo record 

Label10.text = rs_soci!idsoci ' leggo il valore

End