This is the code used
Private Sub AS_DatePicker1_CustomDrawDay (Date As Long, Views As ASDatePicker_CustomDrawDay)
Views.xlbl_Date.Height = 25dip
If DateTime.GetDayOfMonth(Date) = 7 Then
Dim xiv As B4XView = CreateImageView("")
Views.BackgroundPanel.AddView(xiv,0,Views.xlbl_Date.Height,Views.BackgroundPanel.Width,Views.BackgroundPanel.Height - Views.xlbl_Date.Height)
xiv.SetBitmap(xui.LoadBitmapResize(File.DirAssets,"a.png",xiv.Width,xiv.Height,True))
End If
End Sub
Private Sub CreateImageView(EventName As String) As B4XView
Dim iv As ImageView
iv.Initialize(EventName)
Return iv
End Sub