Sub fadeTimer_Tick()
If fd>dimValue Then
fd=dimValue
pnlBlack1.Color=Colors.ARGB(fd,0,0,0)
fadeTimer.Enabled=False
'pnlBlack2.Color=Colors.ARGB(fd,0,0,0)
fd=0
Else
fd=fd+2
If fd>dimValue Then fd=dimValue
pnlBlack1.Color=Colors.ARGB(fd,0,0,0)
'pnlBlack2.Color=Colors.ARGB(fd,0,0,0)
End If
End sub