[Tutorial] Fenster aufklappen

[Tutorial] Fenster aufklappen

'Das folgende kommt GANZ an den Anfang:
Option Explicit On
Imports System.Threading.Thread

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Width = 0
Me.Height = 0
' Das Fenster wird 200 Pixel breit und 400 Pixel hoch
For i As Integer = 0 To 200
Me.Width += 1
Sleep(10)
Next
For i As Integer = 0 To 400
Me.Height += 1
Sleep(10)
Next
End Sub
End Class
'Fertig (;