Прозрачность формы...

[Technar]

Как зделать так чтобы при нажатие на кнопку форма постепено ставала прозрачной!
я делал так:

Код: Выделить всё

        Dim art

        Dim value

        value = Int((100000))

        For art = 100 To value

            Me.Opacity = art - 1

        Next art

Но у меня ничего не получилось!
скажите пожалуйста что не так!

[Williams]

Код: Выделить всё

     Me.Opacity -= 0.01

        If Me.Opacity <= 0.05 Then
            Me.Close()

        End If


[Technar]

Код: Выделить всё

     Me.Opacity -= 0.01

        If Me.Opacity <= 0.05 Then
            Me.Close()

        End If


Cпасибо за код!
но мне нужно чтобы человек нажал 1 раз на кнопку и форма дальше сама постепено становилась прозрачной!

[Williams]

Код: Выделить всё

     Me.Opacity -= 0.01

        If Me.Opacity <= 0.05 Then
            Me.Close()

        End If


Cпасибо за код!
но мне нужно чтобы человек нажал 1 раз на кнопку и форма дальше сама постепено становилась прозрачной!

Код в таймере, нажатие кнопки Timer.Start. Можно еще в потоке отдельном, но с твоим упорным нежеланием мыслить понять это будет слишком сложно

[Technar]

Код: Выделить всё

     Me.Opacity -= 0.01

        If Me.Opacity <= 0.05 Then
            Me.Close()

        End If


Cпасибо за код!
но мне нужно чтобы человек нажал 1 раз на кнопку и форма дальше сама постепено становилась прозрачной!

Код в таймере, нажатие кнопки Timer.Start. Можно еще в потоке отдельном, но с твоим упорным нежеланием мыслить понять это будет слишком сложно

Спасибо большое!

[Razr]

viewtopic.php?f=2&t=32464&start=0&st=0&sk=t&sd=a - в тему!