نکات، ایده ها و ترفندهای کوچک برنامه نویسی در vb.net

[ghafoori]

منبع:https://barnamenevis.org/showpo...68&postcount=6

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

        Me.Opacity = 1

        Dim i As Integer

        For i = 0 To 100

            Me.Opacity -= 0.01

            Application.DoEvents()

        Next

    End Sub