Private Sub drawImage(ByVal g As Graphics)
 
        Dim f As Font
        Dim p As Pen
        Try
            g.FillRectangle(Brushes.Black, New Rectangle(0, 0, 130, 50))
            f = New Font("Arial", 15, FontStyle.Bold)
            g.DrawString("HELLO!", f, Brushes.White, 10, 20)
            g.DrawRectangle(Pens.Chartreuse, 5, 5, 120, 40)
            p = New Pen(Color.Red, 4)
            g.DrawLine(p, 7, 15, 124, 15)
        Finally
            If Not f Is Nothing Then f.Dispose()
            If Not p Is Nothing Then p.Dispose()
        End Try
 
    End Sub
 
    Private Sub btnDrawBitmap_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnDrawBitmap.Click
        Dim bm As Bitmap
        Dim g As Graphics
        Try
            bm = New Bitmap(130, 50)
            g = Graphics.FromImage(bm)
            drawImage(g)
            bm.Save("C:\bm.jpg", ImageFormat.Jpeg)
        Catch
            MsgBox("Create Image Failed")
        Finally
            If Not g Is Nothing Then g.Dispose()
            If Not bm Is Nothing Then bm.Dispose()
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist