Private Type NameList
    Data As String
    Link As Integer
End Type
 
Dim linkvar(100) As NameList
Dim First_loca, Spot_loca, Vacant_loca, Vacant_loca_temp As Integer
 
Private Sub Command3_Click()
Vacant_loca_temp = Vacant_loca
Vacant_loca = 2
Call Command1_Click
Vacant_loca = Vacant_loca_temp
End Sub
 
Private Sub Command4_Click()
Form1.Caption = linkvar(1).Data
End Sub
 
Private Sub Form_Load()
'Initialize Linked List
 
For x = 1 To 99
    linkvar(x).Link = x + 1
Next x
 
'Set last item to null
linkvar(100).Link = 0
 
'Set First_loca and Vacant_loca
First_loca = 0   'list empty
Vacant_loca = 1  'initial open position
End Sub
 
Private Sub Command1_Click()        'Add to list
'If Vacant_loca_temp > 0 Then
'    Vacant_loca = Vacant_loca_temp
'    Vacant_loca_temp = 0
'End If



'Update Vacant_loca Postion
Spot_loca = Vacant_loca
Vacant_loca = linkvar(Spot_loca).Link
 
'Place input into array
linkvar(Spot_loca).Data = Text1
Text1 = ""
Text1.SetFocus
 
'Establish Position in the List
Form1.Caption = Spot_loca
'this also sets the links I think 'Check to see if item is First_loca
If First_loca = 0 Or linkvar(Spot_loca).Data < linkvar(First_loca).Data Then
    linkvar(Spot_loca).Link = First_loca    'Points to what previous First_loca pointed to
    First_loca = Spot_loca                'Makes new item First_loca in list
Else        'New Item is not the First_loca in the list
    Pointer1 = First_loca
    pointer2 = linkvar(First_loca).Link
    'The two pointers around the position where the new
    'item is inserted need to be corrected
   
    'Find the Correct Position in the list
    Do Until pointer2 = 0 Or linkvar(Spot_loca).Data < linkvar(pointer2).Data
        'loops until the end of the list, or the correct position is found
       
        Pointer1 = pointer2
        pointer2 = linkvar(pointer2).Link
        'moves through the list, when the loop stops,
        'these two pointers must be adjusted
    Loop
 
   
    linkvar(Pointer1).Link = Spot_loca 'fixing links
    linkvar(Spot_loca).Link = pointer2
End If
Call Command2_Click

End Sub
 
Private Sub Command2_Click()
'Clear Listbox
List1.Clear
 
'Output the linked list in order
'Current is a local pointer used to move through the list
Dim Current As Integer
 
'Current begins at First_loca
Current = First_loca
 
Do Until Current = 0
    List1.AddItem linkvar(Current).Data   'output data
    Current = linkvar(Current).Link       'move to next item
Loop
End Sub