Menggunakan HScrollBar Di Visual Basic

Kode Programnya:

Public Class Form1

    Sub gradasiwarna()
        Dim warna As Color
        warna = Color.FromArgb(scrollmerah.Value, Scrollhijau.Value, Scrollbiru.Value)
        Tampilan.BackColor = warna
    End Sub

    Private Sub scrollmerah_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles scrollmerah.Scroll
        If e.Type = ScrollEventType.EndScroll Then gradasiwarna()
        merah.Text = scrollmerah.Value
    End Sub

    Private Sub Scrollhijau_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Scrollhijau.Scroll
        If e.Type = ScrollEventType.EndScroll Then gradasiwarna()
        hijau.Text = Scrollhijau.Value
    End Sub

    Private Sub Scrollbiru_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles Scrollbiru.Scroll
        If e.Type = ScrollEventType.EndScroll Then gradasiwarna()
        biru.Text = Scrollbiru.Value
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Hasilnya:

Mudah-mudahan bermanfaat.