Sub splocale_ItemClick (Position As Int, Value As Object)
txtutser.Text = splocale.SelectedItem
Dim mk As Int
mk= txtutser.Text.IndexOf("ID")
txt1.Text=txtutser.Text.SubString2(mk + 3, txtutser.Text.Length)
Dim kk As Int
kk=txtutser.Text.IndexOf("PASS")
txt2.Text=txtutser.Text.SubString2(kk + 5, txtutser.Text.Length)
Dim DD As Int
DD = txtutser.Text.IndexOf("ID")
txt3.Text=txt1.Text.SubString2(DD - 5, txt1.Text.IndexOf("PASS"))
End Sub