Incraese the Opacity on Form Load

Chikul
Posted by Chikul under Windows Forms category on | Views : 1928
'Incraese the Opacity on Form Load

Public Class frrmOpacity

Private Sub frrmOpacity_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Set The Form Opacity as 0.1 on Load()
Me.Opacity = 0.1
End Sub

'Increase the Opacity on Timer_Tick
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Me.Opacity < 1 Then
Me.Opacity += 0.1
End If
End Sub

End Class

Comments or Responses

Login to post response