Public Sub AddItem(Text As String, Image As Bitmap,size As Int ,ReturnValue As Object)
Dim item As ActionItem
item.Initialize
item.Text = Text
item.Image = Image
item.Value = ReturnValue
item.Value = size
If Not(Image.IsInitialized) Then
mListView.TwoLinesAndBitmap.Label.TextSize= size
mListView.AddTwoLinesAndBitmap2(Text, "", Null, ReturnValue)
Else
mListView.TwoLinesAndBitmap.Label.TextSize= size
mListView.AddTwoLinesAndBitmap2(Text, "", Image, ReturnValue)
End If
End Sub