Hi. In this tut i will show u how to make it so your form fades in and out. Umm...yea...its rather simple and u can control the fade speed all u need to do i add a moule then in the module type this:

Public Sub FadeIn()
Dim FadeIn As Double
For FadeIn = 0.0 To 1.1 Step 0.1
Form1.Opacity = FadeIn
Form1.Refresh()
Threading.Thread.Sleep(100)

Next
End Sub
Public Sub FadeOut()
Dim FadeOut As Double
For FadeOut = 1.1 To 0.0 Step -0.1
Form1.Opacity = FadeOut
Form1.Refresh()
Threading.Thread.Sleep(100)

Next
End Sub

Then go to form1 and for load type FadeIn() and for Form Closing type FadeOut()

and thats all :) remember to rate/comment/subscribe :)

свернуть