FlowFact - Entwicklungstools

zurück

Sub - Add
Hinzufügen

  Sub Add(ByVal strPhone1 As String, ByVal strPhone2 As String, ByVal strPhoneComment As String)  
 


strPhone1: Vorwahl
strPhone2: Durchwahl
strPhoneComment: Kommentar


Public Sub Add(ByVal strPhone1 As String, ByVal strPhone2 As String, ByVal strPhoneComment As String)
    Dim strLine As String

    strLine = strPhone1 & vbTab & strPhone2 & vbTab & strPhoneComment

    m_oList.Add m_oList.Count + 1, strLine
End Sub