Public Class Form1
    Dim WithEvents VScrollBar1 As New VScrollBar With {.Dock = DockStyle.Right, _
      .Parent = Me}
 
    Private Sub VScrollBar1_MouseEnter(sender As Object, e As System.EventArgs) _
      Handles VScrollBar1.MouseEnter
        VScrollBar1.Select()
    End Sub
 
    Private Sub VScrollBar1_ValueChanged(sender As Object, e As _
      System.EventArgs) Handles VScrollBar1.ValueChanged
        Me.Text = VScrollBar1.Value.ToString
    End Sub
End Class