Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lormaod
Народ помогите с кодом как заставить выводить не три строки а заполнять весь
Label.

Option Explicit


Private Const LineNum = 11

Private strArray() As String
Private curStr As Integer

Private Sub Command1_Click()

If curStr > LBound(strArray) + 1 Then curStr = curStr - 2
refreshStr
End Sub

Private Sub Command2_Click()

If curStr < UBound(strArray) - 1 Then curStr = curStr + 2
refreshStr

End Sub

Private Sub refreshStr()

Label1.Caption = strArray(curStr)
If curStr > UBound(strArray) - 1 Then
Label2.Caption = ""
Else
Label2.Caption = strArray(curStr + 1)
End If

Label3.Caption = curStr + 1
Label4.Caption = curStr + 2
End Sub

Private Sub Form_Load()
Dim i
Open "C:ook.txt" For Input As #1 Len = 1
Do Until EOF(1)
i = i + 1
ReDim Preserve strArray(i + LineNum)
Line Input #1, strArray(i)
Loop
Close #1
With vsbText
.Min = 1
.Max = i
.SmallChange = 1
.LargeChange = i 10
End With
&#231;&#224;&#239;&#238;&#235;&#237;&#255;&#229;&#236; &#236;&#224;&#241;&#226;&#232;&#226; &#241;&#242;&#240;&#224;&#237;&#232;&#246; &#234;&#224;&#234;&#232;&#236; &#237;&#232;&#225;&#243;&#228;&#252; &#238;&#225;&#240;&#224;&#231;&#238;&#236;


End Sub