Dim str() As String
Dim distname() As String
str=(Array As String("bagalkot.jpg","bangalore.jpg","belgaum.jpg","bellary.jpg","Bidar.jpg","bijapur.jpg","chamrajnagar.jpg", _
"chikballapur.jpg","chikkamagaloor.jpg","chitradurga.jpg","mangalore.jpg","davangere.jpg","dharwad.jpg","gadag.jpg", _
"gulbarga.jpg","hassan.jpg","haveri.jpg","kodagu.jpg","kolar.jpg","koppal.jpg","mandya.jpg","mysore.jpg","raichur.jpg", _
"ramadevara-betta.jpg","shimoga.jpg","Aralaguppe-temple.jpg","udupi.jpg","karwar.jpg","vanadurga.jpg"))
distname=(Array As String("Bagalkot","Bengaluru","Belgaum","Bellary","Bidar","Bijapur","Chamrajnagar","Chikballapur", _
"Chikmagalur","Chitradurga","Dakshina Kannada","Davangere","Dharwad","Gadag","Gulbarga","Hassan","Haveri","Kodagu", _
"Kolar","Koppal","Mandya","Mysore","Raichur","Ramanagara","Shimoga","Tumkur","Udupi","Uttara Kannada","Yadgir"))
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Main")
If FirstTime Then
For i=0 To str.Length-1
File.Copy(File.DirAssets,str(i),File.DirRootExternal,str(i))
Next
End If
For i = 0 To str.Length-1
listMain.AddTwoLinesAndBitmap(distname(i),"",LoadBitmap(File.DirRootExternal,str(i)))
Next