Public Class frmScreenWhatEver
 
    Dim tbo As New TextBox
 
    Dim WithEvents frmTransparent As New Form With _
        {.TransparencyKey = Form.DefaultBackColor, 
         .TopMost = True, _
         .FormBorderStyle = Windows.Forms.FormBorderStyle.None,
         .WindowState = FormWindowState.Maximized}
 
    Private Sub frmScreenWhatever_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.TopMost = True
        Me.Opacity = 0.01
        Me.WindowState = FormWindowState.Maximized
 
 
        tbo.Parent = frmTransparent
        tbo.BackColor = Color.LightGray
        tbo.Text = "Halli Hallo!"
        tbo.Font = New Font("Arial", 40)
        tbo.Width = 300
        frmTransparent.Show()
    End Sub
 
 
    Private Sub frmTransparent_KeyDown(sender As Object, _
        e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
 
        'Di Taste C beendet den Spuk ...
        If e.KeyCode = Keys.C Then
            Me.Close()
        End If
    End Sub
End Class