参考答案

Private Sub HScroll1_Change()
  Text1 = HScroll1
End Sub
VERSION 5#
Begin VB.Form Form1
  Caption = "Form1"
  ClientHeight = 1935
  ClientLeft = 60
  ClientTop = 345
  ClientWidth = 4380
  LinkTopic = "Form1"
  ScaleHeight = 1935
  ScaleWidth = 4380
  StartUpPosition = 3    '窗口缺省
  Begin VB.TextBox Text1
      Height = 375
      Left = 1560
      TabIndex = 1
      Top = 360
      Width = 1335
  End
  Begin VB.HScrollBar HScroll1
      Height = 375
      LargeChange = 50
      Left = 480
      Max = 1500
      Min = 1000
      SmallChange = 2
      TabIndex = 0
      Top = 1080
      Value = 1000
      Width = 3375
  End
End
Private Sub HScroll1_Change()
  Text1 = HScroll1
End Sub