Function GetFormular() As Form
   Dim frm As New Form
 
   frm.Name = "frmMain"
   frm.Width = 600
   frm.height = 500
 
 
   Dim btnForward As New Button
   Dim bntCancel As New Button
 
   btnForward.Name = "btnForward"
   btnForward.Text = "Weiter"
   btnForward.Left= frm.Width - btnForward.Width - 20
   btnForward.Top = frm.Height - btnForward.Height - 20
 
   bntCancel.Name = "bntCancel"
   bntCancel.Text = "Abbrechen"
   bntCancel.Left= 20
   bntCancel.Top = frm.Height - btnForward.Height - 20
 
   frm.Controls.Add(btnForward)
   frm.Controls.Add(btnCancel)
 
   Return frm
End Function
Sub SaveDesignerCode(Path As String)
   Dim inhalt As String = GetDesignerCode(GetFormular)
   My.Computer.FileSystem.WriteAllText(Path,inhalt,False)
End Sub
Function GetDesignerCode(Formular As Form)
   Dim Code As String
   'Ka...halt der Code dafür
   Return Code
End Function