morteza2006
New Member
Hello friends
Please tell me why line 7 of the following code gives an error message
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			Please tell me why line 7 of the following code gives an error message
			
				B4X:
			
		
		
		Sub getcontacts As String
    Dim allc As String
    Dim list1 As List
    list1.Initialize
    list1 = contacts.GetAll
    For Each i As Contact In list1
        allc = i.GetPhones
    Next
    Return allc
End Sub