Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    Me.Opacity = 0
    Timer1.Enabled = True
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Timer1.Tick
    Static i As Int32
    i += 1
    If i >= 100 Then i = 0
    Label1.Text = CStr(i * 0.01)
    Me.Opacity = i * 0.01
  End Sub

  Private Sub Button2_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button2.Click
    If Button2.Text = "&Stop" Then
      Timer1.Enabled = False
      Button2.Text = "&Start"
    Else
      Timer1.Enabled = True
      Button2.Text = "&Stop"
    End If
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    Me.Close()
  End Sub
End Class