Meka][Meka Unstopable Posts: 700
| regardless of cpu, here is some starting code for making a app fader, might come in handy for someone vb7.net version:
Code: | Private WithEvents tmr As New Timer Private bAdd As Boolean = False Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load tmr.Interval = 100 tmr.Start() End Sub Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmr.Tick If bAdd = False Then Me.Opacity -= 0.01 If Me.Opacity < 0.01 Then bAdd = True End If Else Me.Opacity += 0.01 If Me.Opacity > 0.99 Then bAdd = False End If End If End Sub | -/Meka][Meka
|