I have a dynamically created picker object instantiated.  I need to determine the device type, iPhone or iPad, at run time, and change the font size of the data picker dependent on device type.
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			
			
				B4X:
			
		
		
		    Dim oPicker As Picker
    oPicker.Initialize("lbx" & iPickerCounter)
    oPicker.Tag=sTestId
    Dim myList As List
    myList.Initialize
    myList.Clear
    Dim oKeyValue As AttributedString
    dim sListText as string="Hello World"
    dim sListValue as string="1"
   oKeyValue.Initialize(sListText,oFont, Colors.Black)
   oKeyValue.Tag=sListValue
   myList.add(oKeyValue)
   oPicker.SetItems(0,myList)
   ScrollViewInput.Panel.AddView(oPicker,10dip,iRowOffset-(oPicker.Height/2),90%x,500dip) 
				 
 
		 
 
		 
 
		 
 
		 
 
		