Sub OpenFormWA(ByVal WidthStart As Integer, ByVal WidthEnd As Integer, ByVal _
  Form As System.Windows.Forms.Form)
        Do
            WidthStart += 1
            Form.Width = WidthStart
        Loop Until WidthStart = WidthEnd
    End Sub
    Sub CloseFormWS(ByVal WidthStart As Integer, ByVal WidthEnd As Integer, _
      ByVal Form As System.Windows.Forms.Form)
        Do
            WidthStart -= 2
            Form.Width = WidthStart
        Loop Until WidthStart = WidthEnd
    End Sub

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE