If listbox2.cell(row,column)=Str(jahr) Or listbox2.cell(row,column)=Str(jahr+1) Then My list box shows text and background by month date and value 1,2 or 3 in first columnįunction CellTextPaint(g As Graphics, row As Integer, column As Integer, x as Integer, y as Integer) Handles CellTextPaint as Boolean
