İlk Önce Formunuza 1 tane Progressbar ve Timer Ekleyin...
Kodlar Hazırdır Arkadaşlar. Sadece Formunuza Kopyalayın... Bu Effect Crack,Keygen Programlarındada Olur. :)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Opacity = "0"
Me.StartPosition = FormStartPosition.CenterScreen
Timer1.Interval = 20
Timer1.Enabled = True
ProgressBar1.Visible = False
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
ProgressBar1.Value = 0
Else
Me.Opacity = ProgressBar1.Value / 100
ProgressBar1.Value = Val(ProgressBar1.Value) + Val(1)
End If
End Sub