[alshandodi]

كود :

  If Me.Width < 350 Then
           While Me.Width < 350
               Me.Width += 2
           End While
           Exit Sub
       End If

       If Me.Width > 136 Then
           While Me.Width > 136
               Me.Width -= 2
           End While
           Exit Sub
       End If