Quote:If you like this tutorial please register.

Quote:Private Sub cmdSubmit_Click()
Dim intMessageFile As Integer 'declare variable
Dim Age As String 'declare variable
Dim Name As String 'declare variable

Age = txtAge.Text 'give value to age variable
lstView.Visible = False

intMessageFile = FreeFile
Open "age.txt" For Append As #intMessageFile 'open the text file
Name = txtName.Text 'Give value to name variable
Write #intMessageFile, Name; Age 'write the name and age to age.txt
Close #intMessageFile 'close the text file
End Sub

Quote:Private Sub cmdView_Click()
lstView.Visible = True

Dim Content As String
Dim Message As String
intMessageFile = FreeFile
Open "age.txt" For Input As #intMessageFile
Do
If Not EOF(intMessageFile) Then
Input #intMessageFile, Message
Content = Message
lstMsgBox.AddItem Content
Else
Close #intMessageFile
'if you were not to include the below lines of code,
'Visual Basic would only read and display the first
'line of the text file. To overcome this, we tell the program
'to keep "looping"; reading everyline of the text file until it
'does not encounter anymore lines. Therefor reading and
'showing every line.
GoTo LoopEnd
End If
Loop
LoopEnd:

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''​''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''​''''''''''''''''''''''''''''''''''''''
''''''''BEGIN ADDITION OF HORIZONTAL SCROLL BAR''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''​''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''​''''''''''''''''''''''''''''''''''''''

Dim c As Long
Dim rcText As RECT
Dim newWidth As Long
Dim itemWidth As Long
Dim sysScrollWidth As Long

'assure that the form font is the same as the
'list font to assure the DrawText method
'calculates the width correctly.
Form1.Font.Name = lstView.Font.Name
Form1.Font.Bold = lstView.Font.Bold
Form1.Font.Size = lstView.Font.Size

'get the width of the system scrollbar
sysScrollWidth = GetSystemMetrics(SM_CXVSCROLL)

'loop through the list items, using DrawText
'with DT_CALCRECT to determine the longest item.
For c = 0 To lstView.ListCount - 1
Call DrawText(Form1.hDC, (lstView.List©), -1&, rcText, DT_CALCRECT)

'calc the required width to display the
'widest list item by adding the rect
'width needed to display the item
'with the width of the system scroll bar
itemWidth = rcText.Right + sysScrollWidth

'if this width is wider than a previous
'value, save the longer width
If itemWidth >= newWidth Then
newWidth = itemWidth
End If
Next

'add a horizontal scrollbar wide enough
'to display the longest list item. If the
'scrollbar is not needed, its not shown.
Call SendMessage(lstView.hwnd, LB_SETHORIZONTALEXTENT, newWidth, ByVal 0&)
End Sub

Quote:Public Const LB_GETHORIZONTALEXTENT = &H193
Public Const LB_SETHORIZONTALEXTENT = &H194
Public Const DT_CALCRECT = &H400
Public Const SM_CXVSCROLL = 2

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function DrawText Lib "user32" _
Alias "DrawTextA" _
(ByVal hDC As Long, _
ByVal lpStr As String, _
ByVal nCount As Long, _
lpRect As RECT, ByVal _
wFormat As Long) As Long

Public Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long

Quote:Private Sub cmdExit_Click()
End
End Sub