Graphics.PageUnit = GraphicsUnit.Millimeter : GraphicsUnit « 2D Graphics « VB.Net Tutorial

Graphics.PageUnit = GraphicsUnit.Millimeter
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class GraphicsPageUnitGraphicsUnitMillimeter

   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

Public Class Form1
    Private Sub Form11_Paint(ByVal sender As Object, _
          ByVal e As System.Windows.Forms.PaintEventArgs) _
          Handles Me.Paint

         e.Graphics.PageUnit = GraphicsUnit.Millimeter

         e.Graphics.FillRectangle(Brushes.Red, 0, 0, 1,1)
    End Sub
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
        End If
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(617, 197)
        Me.MaximizeBox = False

    End Sub

End Class

17.43.1.Graphics.PageUnit = GraphicsUnit.InchGraphics.PageUnit = GraphicsUnit.Inch
17.43.2.Graphics.PageUnit = GraphicsUnit.MillimeterGraphics.PageUnit = GraphicsUnit.Millimeter