Hola edwintech hay varias formas de hacerlo podrias ir acumulando el monto en una coleccion y para generar el monto pones dentro de una condision el monto acumulado durante ese periodo de tiempo un ejemplo de una condision seria algo como esto
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim year As Integer = Now.Year
Dim month As Integer = Now.Month
Dim day As Integer = DateTime.DaysInMonth(year, month)
If Date.Today.Day = day Then
'Accion que se va a realizar
End If
End Sub
igual si usando colecciones es algo tedioso create una variable que valla acumulando el monto generado o que se valla guardando en un archivo o incluso en otra base de datos y con la misma condision
if que te puse lo compruevas en este caso esa condision crea un objecto
date con la fecha del ultimo dia del mes y lo compara con la fecha actual. si tu aplicacion estara siempre en ejecucion puedes poner esa condision en un object
timer
hay mas formas de hacerlo por eso es bueno que cuando formules una pregunta pongas algo de codigo para uno tener un mejor entendimiento de lo que quieres hacer y sele brinde una mejor ayuda