Private Sub Createitem(tvTableview As TableView, sValue As String,iAlpha As Int, iRed As Int, iGreen As Int, iBlue As Int,iFontSize As Int,iFontColor As Int) As Panel
Dim oPanel As Panel
Dim lblData As Label
oPanel.Initialize("")
lblData.Initialize("data")
lblData.Text=sValue
lblData.color=Colors.ARGB(iAlpha,iRed,iGreen,iBlue)
lblData.Font=Font.CreateNew(iFontSize)
lblData.TextColor=iFontColor
oPanel.Width=100%x
oPanel.Height=tvTableView.RowHeight
oPanel.AddView(lblData,0,0,100%x,tvTableview.RowHeight)
Return(oPanel)
End Sub