Visual Basic

'  Form2 code
#Region " Windows Form Desginer generated code "
    Public Sub New()
        MyBase.New()
    End Sub
#End Region
 
    Private x As Integer = 0
 
    Public Sub New(ByVal value As Integer)
        m_x = value
    End Sub

Dim mapImage As New Bitmap(filepath)

Dim printNames As String = PrinterSettings.InstalledPrinters

Dim printer As String
 
For Each printer In printNames
    Dim pd As New PrintDocument
    AddHandler pd.PrintPage, AddressOf Me.pd_PrintPage
    pd.Print()
Next
 
Private Sub pd_PrintPage(sender As Object, ev As PrintPageEventArgs)
    Dim leftMargin As Single = ev.MarginBounds.Left
    Dim topMargin As Single = ev.MarginBounds.Top
 
    ev.Graphics.DrawImageUnscaled(mapImage, leftMargin, topMargin)
    ev.HasMorePages = False
End Sub

Imports System.Drawing.Printing

Dim cmdArgs As String
cmdArgs = Command()

Dim regKey As RegistryKey
redKey = Registry.LocalMachine.OpenSubKey("Software\MyApp", True)
regKey.SetValue("Version", TextBox1.Text)
regKey.Close()