Il file è un file vb e lo modifico così:
codice:
Dim path As String = "C:\Users\gg\Documents\Visual Studio 2013\Projects\ten\ten\Tabelloni.vb"
        Dim sw As StreamWriter
        ' This text is always added, making the file longer over time
        ' if it is not deleted.
        sw = File.AppendText(path)
        sw.WriteLine("Public Class " & campo)
        sw.WriteLine("Inherits Tennis1")
        sw.WriteLine("Private Sub " & campo & "_Load(sender As Object, e As EventArgs) Handles Me.Load")
        sw.WriteLine("Tabelloni.dataTab(Calendar1," & Chr(34) & campo & Chr(34) & ")")
        sw.WriteLine("Me.Text=" & Chr(34) & campo & Chr(34))
        sw.WriteLine("End Sub")
        sw.WriteLine("Private Sub MonthView1_DateChanged(sender As Object, e As Calendar.DateRangeChangedEventArgs) Handles MonthView1.DateChanged")
        sw.WriteLine("Tabelloni.dataTab(Me.Calendar1," & Chr(34) & campo & Chr(34) & ")")
        sw.WriteLine("End Sub")
        sw.WriteLine("End Class")
        sw.Flush()
        sw.Close()