ho provato cosi ma nn va :

Private Sub Timer1_Tick(ByVal sender _
As System.Object, ByVal e As System.EventArgs) _
Handles Timer1.Tick
Timer1.Interval = 2000
If Me.Opacity < 1 Then Me.Opacity += 0.2 Else DirectCast(sender, Timer).Enabled = False
End Sub