JBGrid

Public Sub Form_Load()
 
   JBGrid1.Cols = 3
   JBGrid1.Rows = 5
 
   JBGrid1.Header(0) = "First Name"
   JBGrid1.Header(1) = "Last Name"
   JBGrid1.Header(2) = "Age"
 
   Dim row As Long
   For row = 0 To JBGrid1.Rows
      JBGrid1.TextMatrix(row, 0) = "firstname_" & row
      JBGrid1.TextMatrix(row, 1) = "lastname_" & row
      JBGrid1.TextMatrix(row, 2) = "age_" & row
   Next
 
   JBGrid1.ColWidth(0) = 80
   JBGrid1.ColWidth(1) = 80
   JBGrid1.ColWidth(2) = 80
 
End Sub