Private Sub CreateCheck1(my_brand As String, my_model As String, my_Title As String, my_Image As String, my_checks As String, status As String) As Panel
Dim p As B4XView = xui.CreatePanel("")
p.setlayoutanimated(0,0%x,0%y,100%x,30%y)
p.LoadLayout("checklist1")
brand_lbl.Text = my_brand & ", " & my_model
title_lbl.Text = my_Title
check_lbl.Text = my_checks
Tog_but.Background=sld
Tog_but.TextOff = ""
Tog_but.TextOn = ""
If File.Exists(File.DirAssets,my_Image) = True Then
ImageView1.SetBitmap(xui.LoadBitmapResize(File.DirAssets, my_Image, ImageView1.Width, ImageView1.Height, True))
End If
If my_Title = "PRE-BREATH" Then Tog_but.Visible = False
If status = "0" Then
Tog_but.Checked = False
End If
If status = "1" Then
Tog_but.Checked = True
End If
Return p
End Sub