Private Sub cmdAdd_Click()
lstNames.AddItem (txtName)
End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdFTL_Click(Index As Integer)
cmdFTL(Index).Caption = cmdFTL(Index).Caption + 1
cmdTE(Index).Caption = cmdTE(Index).Caption + 1
End Sub

Private Sub cmdPLC_Click(Index As Integer)
cmdPLC(Index).Caption = cmdPLC(Index).Caption + 1
cmdTE(Index).Caption = cmdTE(Index).Caption + 1
End Sub

Private Sub cmdRemove_Click()
lstNames.RemoveItem (Index)
End Sub

Private Sub cmdSLE_Click(Index As Integer)
cmdSLE(Index).Caption = cmdSLE(Index).Caption + 1
cmdTE(Index).Caption = cmdTE(Index).Caption + 1
End Sub