Public Class frmTransparenz
    Private Sub frmTransparenz_Load(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        Me.FormBorderStyle = FormBorderStyle.None
 
        Me.TransparencyKey = Color.LightBlue
        Me.BackColor = Color.LightBlue
 
        Me.ForeColor = Color.Red
        Me.Font = New Font("Arial", 36, FontStyle.Bold)
        Me.Size = New Size(600, 150)
 
        Me.StartPosition = FormStartPosition.Manual
        Me.Location = New Point(300, 300)
 
    End Sub
 
 
    Private Sub frmTransparenz_Paint(sender As Object, _
        e As PaintEventArgs) Handles Me.Paint
 
        Using br As New SolidBrush(Me.ForeColor)
            e.Graphics.DrawString _
            ("May be, that's the way ....", Me.Font, br, New Point(30, 30))
        End Using
 
    End Sub
End Class