Dim Bm1 As Bitmap = LoadBitmap(File.DirAssets,CurrLng.ToLowerCase & ".png")
Dim Bm2 As Bitmap = LoadBitmap(File.DirAssets,"caller_off.png")
Dados.Add(CreateListItem(Bm1,Bm2,"Pedido : " & NumPed & " - Pessoas : " & NumPax, DataPed & " - " & HoraPed,Dados.AsView.Width, 70dip), 70dip, "")