معلومة/ إغلاق الفورمة تدريجياً وبتأثير شفاف

شكرا

ميرررررررررررررررررررسي بوكو على المعلومة الحلوة الله يوفقك والى الأمام

شكرا لك اخي و هذا تعديل على كودك ليقوم بتصغير حجمه و الاختفاء تدريجياً

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick


        Me.Height = Me.Height - 50
        Me.Opacity = Me.Opacity - 0.2
        If Me.Opacity = 0 Then
            End
        End If
      

    End Sub

شكرا لك اخي و هذا تعديل بسيط على تعديلك لتكتمل الصورة:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Height = Me.Height - 50
        Me.Width = Me.Width - 50
        Me.Opacity = Me.Opacity - 0.2
        If Me.Opacity = 0 Then
            End
        End If
 End Sub

لاكثر دينامكية نسخدم LOOP حتى تكون حركة الاخفاء اكثر طبيعة وقمت بتغير حجم التغير والله اعلم

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim i As Integer
        For i = 1 To 1000
            Me.Height = Me.Height - 25
            Me.Width = Me.Width - 25
            Me.Opacity = Me.Opacity - 0.2
        Next
        If Me.Opacity = 0 Then
            End
        End If
    End Sub

الأخ/الأخت كفاح شكراً على الإضافة وهى تعتبر بديل عن استخدام Timer حيث أنك قمت بعمل عداد يقوم بنفس عمل التيمر

جزاك الله خيراً .... والسلام عليكم ورحمة الله وبركاته

الشكر لله لكن الفكرة هى ان يكون هناك حركة طبيعيه اكثر مما كانت علية سابقا