Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

For i = 0 To Me.Size.Width
            Me.Size = New Size(Me.Size.Width - 1, Me.Size.Height)
        Next
        For i = 0 To Me.Size.Height
            Me.Size = New Size(Me.Size.Width, Me.Size.Height - 1)
        Next
        Application.Exit()

Visual Basic Quellcode

e.Cancel = True
Dim z As Integer = 300
Dim x As Integer = Me.Width / z
Dim y As Integer = Me.Height / z
Dim mx As Integer = Me.Width
Dim my As Integer = Me.Height

For i = 1 To z
    Me.Width = mx - Math.Round(x * i)
    Me.Height = my - Math.Round(y * i)
Next
End

Visual Basic Quellcode

 Private Sub Form1_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        For Each Control As Control In Me.Controls
            Control.Visible = False
        Next
        For i = 1 To 300
            Me.Width = i
            Me.Height = i
        Next
        For Each Control As Control In Me.Controls
            Control.Visible = True
        Next
    End Sub