Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim intNumRighe As Integer

        intNumRighe = DataGridView1.Rows.Count
        DataGridView1.Rows.Add(New DataGridViewRow) 'aggiunge le righe
        DataGridView1.Rows(intNumRighe).Cells(0).Value = "Forum " & mintContatore
        DataGridView1.Rows(intNumRighe).Cells(1).Value = "aggiuntiva"
        DataGridView1.Rows(intNumRighe).Cells(2).Value = "12/10/89"

        mintContatore = mintContatore + 1 'dichiarato a livello di modulo

    End Sub