Public Class Form1
 
    Private value As Single = 0
 
    Private WithEvents t As New Timer
    Private l As New Label
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        t.Interval = 200
        t.Start()
        Me.Opacity = 0
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        l.Parent = Me
        Me.Size = l.Size
        l.Location = New Point(0, 0)
        l.Text = "Ich bin ein Label"
    End Sub
 
    Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles t.Tick
        Static up As Boolean = True
        Me.Opacity = value
        If up = True Then
            value += 0.1
            If value > 1 Then
                up = False
            End If
        Else
            value -= 0.1
            If value < 0 Then
                up = True
            End If
        End If
    End Sub
End Class