Public Class frmOpacity
 
    Private Sub frmOpacity_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Opacity = 0.01
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.Size = New Size(100, 100)
        Me.Location = New Point(0, 0)
    End Sub
 
 
    Private Sub frmOpacity_MouseClick(sender As Object, _
        e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
 
        MsgBox("Das Formular ist von der Maus gebissen worden")
    End Sub
End Class