Menggunakan VSrollBar Di Visual Basic

Berikut kode programnya :

Public Class Form1
    Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        Dim hasil As Integer
        hasil = VScrollBar1.Value
        Dim ukuran As New Font("Tahoma", hasil, FontStyle.Bold)
        Label1.Font = ukuran
        TextBox1.Font = ukuran

    End Sub
End Class

Hasil:

Mudah-mudahan bermanfaat.