[new_programer]

(30-05-20, 02:26 PM)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

شكراً لك 
لكن الفورم بتكون ثابته فى شمال الشاشة

انا عايز الفورم ثابت فى يمين الشاشة