منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

تفضل


' عند النقر على الزر الأول لتغيير حجم النموذج إلى 340x342
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Size = New Size(340, 342)
End Sub

' عند النقر على الزر الثاني لتغيير حجم النموذج إلى 340x189
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Size = New Size(340, 189)
End Sub

الله يسعدك يا الـ ـجارح عمل الكود بعد التجربه والحمد لله