Visual Basic

Private Sub cmdExecute_Click()
    'Execute the computing
    


    EasyMain1.Histogram EBW8Image1.object, frmHistogramVector.EBWHistogramVector1.object
    
    
    frmHistogramVector.EBWHistogramVector1.Refresh
    frmHistogramVector.Show
    
End Sub

Private Sub Form_Load()
    

      Dim Min As Long
      Dim Max As Long
      Min = 0
      Max = 255
    With ListView1
       
        .ColumnHeaders.Add          'add a couple columns
        .ColumnHeaders.Add
        .ColumnHeaders(1).Text = "Index"     'name the columns
        .ColumnHeaders(2).Text = "Count"
        .ColumnHeaders(1).Width = .Width * 0.35  'column width based on width of list view
        .ColumnHeaders(2).Width = .Width * 0.5
    
    Dim I As Long
    Dim a As Single

    With .ListItems
        For I = 0 To 255
        a = EasyMain1.AnalyseHistogram(EBWHistogramVector1.object, eImgPixelCount, 0, 255)
            With .Add(, , I)
                 .ListSubItems.Add , , a
               
            End With
        Next I
    End With

        
    End With
    
End Sub