Private Sub Fade_Show(ByVal Time As Integer)
Me.Opacity = 0
Me.Show()
Dim Inc As Integer
Dim checkT As Integer = My.Computer.Clock.TickCount
Do While Inc < Time
Inc = My.Computer.Clock.TickCount - checkT
Me.Opacity = Inc / Time
Application.DoEvents()
Loop
End Sub
Private Sub Fade_Hide(ByVal Time As Integer)
Me.Opacity = 1
Dim Inc As Integer
Dim checkT As Integer = My.Computer.Clock.TickCount
Do While Inc < Time
Inc = My.Computer.Clock.TickCount - checkT
Me.Opacity = 1 - 1 / (Time / Inc)
Application.DoEvents()
Loop
End Sub