Private Sub Preview2(ByVal pic As PictureBox, ByVal text As RichTextBox, _
      ByVal versatz As Point)
        If loader = False Then Exit Sub
        Dim TmpSize As System.Drawing.Size
        Dim Image As Image = InvertColors(System.Drawing.Image.FromFile( _
          ComboBox1.SelectedItem))
        Dim Brush As New SolidBrush(Color.White)
 
        'Größe auslesen
        TmpSize.Height = Image.Height
        TmpSize.Width = Image.Width
 
        'Neue Bitmap erstellen
        Dim NewBitmap As New System.Drawing.Bitmap(Image, TmpSize)
        NewBitmap.SetResolution(72, 72)
 
        'Neue Grafik erstellen anhand der Bitmap
        Dim Graphic As System.Drawing.Graphics = _
          System.Drawing.Graphics.FromImage(NewBitmap)
        Graphic.SmoothingMode = Drawing.Drawing2D.SmoothingMode.None
        Graphic.TextRenderingHint = _
          Drawing.Text.TextRenderingHint.SingleBitPerPixel
        'String auf Bild zeichnen
        If numFontSize.Value = 0D Then numFontSize.Value = 12
        Graphic.DrawString(text.Text, New Font("RuneScape UF", _
          numFontSize.Value), Brush, versatz)
 
        'Neues Bild speichern
        pic.Image = DirectCast(New System.Drawing.Bitmap(NewBitmap, TmpSize), _
          Bitmap)
 
        'Ressourcen freigeben
        Graphic.Dispose()
        NewBitmap.Dispose()
    End Sub

PictureBox1_1.Image.Save("Pictures\" & txtBezeichnung.Text & "\Button 1" & _
  "OFF.bmp", Drawing.Imaging.ImageFormat.Bmp)