Visual Basic

Dim bmp As New Bitmap(80, 80)
               Dim g As Graphics = Graphics.FromImage(bmp)
               Dim LinesPen As New Pen(Color.Black, 2)
               LinesPen.Alignment = Drawing2D.PenAlignment.Center
               g.DrawRectangle(LinesPen, 1, 1, 78, 78)
               g.DrawLine(LinesPen, 27, 1, 27, 79)
               g.DrawLine(LinesPen, 53, 1, 53, 79)
               g.DrawLine(LinesPen, 1, 27, 79, 27)
               g.DrawLine(LinesPen, 1, 53, 79, 53)
               Try
               '----------------ERROR HERE------------------
                   bmp.Save(Me.DestinationLabel.Text, System.Drawing.Imaging.ImageFormat.Png)
               '-------^^^^-----ERROR HERE-------^^^^-------
               Catch ex As Exception
                   MessageBox.Show(ex.Message)
               End Try

<br />
<br />
<global.microsoft.visualbasic.compilerservices.designergenerated()> _<br />
Partial Class prodidtextbox<br />
    Inherits System.Windows.Forms.UserControl<br />
<br />
    'UserControl overrides dispose to clean up the component list.<br />
    <system.diagnostics.debuggernonusercode()> _<br />
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing AndAlso components IsNot Nothing Then<br />
            components.Dispose()<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    <system.diagnostics.debuggerstepthrough()> _<br />
    Private Sub InitializeComponent()<br />
        Me.textbox1 = New System.Windows.Forms.TextBox<br />
        Me.SuspendLayout()<br />
        '<br />
        'textbox1<br />
        '<br />
        Me.textbox1.Location = New System.Drawing.Point(0, 0)<br />
        Me.textbox1.Name = "textbox1"<br />
        Me.textbox1.Size = New System.Drawing.Size(100, 20)<br />
        Me.textbox1.TabIndex = 0<br />
        '<br />
        'prodidtextbox<br />
        '<br />
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)<br />
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font<br />
        Me.Controls.Add(Me.textbox1)<br />
        Me.Name = "prodidtextbox"<br />
        Me.Size = New System.Drawing.Size(100, 20)<br />
        Me.ResumeLayout(False)<br />
        Me.PerformLayout()<br />
<br />
    End Sub<br />
    Friend WithEvents textbox1 As System.Windows.Forms.TextBox<br />
<br />
End Class<br />
<br />
</system.diagnostics.debuggerstepthrough()></system.diagnostics.debuggernonusercode()></global.microsoft.visualbasic.compilerservices.designergenerated()>

<br />
public class proidtexbox<br />
dim t as object<br />
 public overrides property text() as string<br />
  get<br />
   return t<br />
  end get<br />
  set(byval value as string)<br />
   t=value<br />
  end set<br />
 end property<br />
end class<br />