1 Public Class Form1
2 Private Sub Form1_Load(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles MyBase. Load
3 ProgressBar_Vertical1.Value = 90
4 Â ProgressBar_Vertical2.Value = 80
5 ProgressBar_Vertical3.Value = 70
6 ProgressBar_Vertical4.Value = 50
7 ProgressBar_Vertical5.Value = 40
8 Â End Sub
9 End Class
10. Sekarang debug program dan lihat hasilnya
Desain Form
1 Public Class Form1
2 Dim vol As Integer
3 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
4 End Sub
5 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
6 Â vol = vol + 1
7 Â ProgressBar_Vertical1.Value = vol
8 Â End Sub
9 Â Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
10 vol = vol - 1
11 Â ProgressBar_Vertical1.Value = vol
12 Â End Sub
13 End Class
ini screenshot hasil tampilannya:
Salam Sukses
Â
TOG Indonesia