|
|
||||||||
|
||||||||
|
||||||||
|
|
|
| Public Sub FadeIn() dim fade as Double For fade = 0.0 To 1.1 Step 0.2 form1.opacity = fade form1.refresh Threading.Thread.sleep(100) Next End Sub Public Sub fadeout() Dim Fade As Double for fade = 1.1 to 0.0 step -0.3 form1.Opacity = fade form1.refresh() threading.thread.sleep(100) next End Sub A Special Thanks To: jnbjabnk (Youtube Account) |
![]() |
| |
|
• Discuss Tutorial
• Comment On Tutorial |
• View Tutorial
• Report Broken Link |
|
|