Private Sub ISHilfe_SizeChanged(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles Me.SizeChanged
        If Me.Width < 96 Or Me.Height < 96 Then
            Me.Size = New Size(96, 96)
        End If
        If Me.Width <> Me.Height Then
            Me.Size = New Size(Me.Width, Me.Width)
        End If
        Me.Refresh()
        Me.pctBox.Size = New Size(Me.Width / 2, Me.Height / 2)
        Me.pctBox.Location = New Point(Me.Width / 2 - Me.pctBox.Size.Width / 2, _
            Me.Height / 2 - Me.pctBox.Size.Height / 2)
        Me.pctBox.Refresh()
    End Sub