Imports System.Drawing.Imaging
Imports System.Drawing.Drawing2D
Imports System.IO
Imports System.IO.StreamWriter
Imports System.Drawing.Printing
Imports System.Drawing.Printing.PrintDocument
Imports System.ComponentModel
 
Public Class cls_DocumentPage
    Inherits System.Windows.Forms.Control
 
#Region " Vom Component Designer generierter Code "
 
    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
        MyClass.New()
        'Für Support von Windows.Forms-Klassenkompositions-Designer
        Container.Add(Me)
    End Sub
 
    Public Sub New()
        MyBase.New()
        ' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
        InitializeComponent()
        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
        InitME()
    End Sub
 
    'Die Komponente überschreibt den Löschvorgang zum Bereinigen der 
    ' Komponentenliste.
    Protected Overloads Sub Dispose(ByVal disposing As Boolean)
        'Objekte werden zerstört.
        Me.MemoryStream1.Close()
        Me.GraphicsFromFileMetaFile.Dispose()
    End Sub
 
    'HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer 
    ' erforderlich
    'Sie kann mit dem Komponenten-Designer modifiziert werden.
    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
    Public GraphicsFromFileMetaFile As System.Drawing.Graphics
    Public Handle1 As IntPtr
    Friend MetaFile1 As Metafile
    Friend MemoryStream1 As MemoryStream
    Protected ConverterInterface1 As cup_co.co_ConverterInterface
    Protected SystemComponent1 As cup_System.co_SystemComponent
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        ' Me.components = New System.ComponentModel.Container()
        Me.ConverterInterface1 = New cup_co.co_ConverterInterface
        Me.SystemComponent1 = New cup_System.co_SystemComponent
    End Sub
#End Region
 
    Public Sub InitME()
        GraphicsFromFileMetaFile = Me.CreateGraphics
        Handle1 = Me.GraphicsFromFileMetaFile.GetHdc()
        MemoryStream1 = New MemoryStream()
        MetaFile1 = New Metafile(MemoryStream1, Handle1)
        GraphicsFromFileMetaFile = System.Drawing.Graphics.FromImage(MetaFile1)
    End Sub

    Public Sub cupInitME()
        MemoryStream1 = New MemoryStream()
        MetaFile1 = New Metafile(MemoryStream1)    ', Handle1)
        GraphicsFromFileMetaFile = System.Drawing.Graphics.FromImage(MetaFile1)
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)