Public Class frmTransparent
 
    Dim WithEvents pbox As New PictureBox With _
               {.Parent = Me, .Width = 500, .Height = 300, _
                .BackColor = Me.backcolor}
 
    Dim bmp As New Bitmap(pbox.width, pbox.height)
 
 
    Private Sub frmTransparent_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.BackColor = Color.FromArgb(255, 1, 0) 'weil Rot = 255,0,0
 
        Me.TransparencyKey = Me.BackColor
        Me.Width = 505
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
        pbox.Image = bmp
    End Sub
 
 
    Private Sub pbox_Paint(sender As Object, _
        e As System.Windows.Forms.PaintEventArgs) Handles pbox.Paint
 
        Using g As Graphics = Graphics.FromImage(bmp), _
                b As New SolidBrush(Color.Red)
            g.Clear(Me.BackColor)
            g.DrawString("Hier könnte Ihr Text stehen.", _
                    New Font("Arial", 20), b, New Point(10, 10))
            pbox.Image = bmp
        End Using      
    End Sub
 
End Class