Aqua Bar - Form1.vb - Piero Tofy.it


	Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AquaBar1.Value = 50 End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick AquaBar1.Value += 1 If AquaBar1.Value = AquaBar1.Maximum Then Timer1.Stop() End If End Sub End Class