Ok...
Sub Global
Private spnL3A16AW1,spnL3A16AW2 As Spinner
Private spnMapL3A16AW1, spnMapL3A16AW2 As Map
Private arabicWord1L3A16, arabicWord2L3A16 As String
End Sub
Sub Lesson3Activity16
spnMapL3A16AW1.Initialize
spnMapL3A16AW2.Initialize
spnL3A16AW1.Add("وَلَدٌ")
spnMapL3A16AW1.Put("وَلَدٌ", "a boy")
spnL3A16AW1.Add("اَلْوَلَدُ")
spnMapL3A16AW1.Put("اَلْوَلَدُ", "the boy")
spnL3A16AW1.Add("طَوِيْلٌ")
spnMapL3A16AW1.Put("طَوِيْلٌ", "tall")
spnL3A16AW1.Add("اَلطَّوِيْلٌ")
spnMapL3A16AW1.Put("اَلطَّوِيْلُ", "the tall")
spnL3A16AW2.Add("وَلَدٌ")
spnMapL3A16AW2.Put("وَلَدٌ", "a boy")
spnL3A16AW2.Add("اَلْوَلَدُ")
spnMapL3A16AW2.Put("اَلْوَلَدُ", "the boy")
spnL3A16AW2.Add("طَوِيْلٌ")
spnMapL3A16AW2.Put("طَوِيْلٌ", "tall")
spnL3A16AW2.Add("اَلطَّوِيْلٌ")
spnMapL3A16AW2.Put("اَلطَّوِيْلُ", "the tall")
End Sub
Sub spnL3A16AW1_ItemClick (Position As Int, Value As Object)
arabicWord1L3A16 = spnMapL3A16AW1.Get(Value)
If arabicWord1L3A16 = "the boy" And arabicWord2L3A16 = "the tall" Then
ivResult.Visible = True
End If
End Sub
Sub spnL3A16AW2_ItemClick (Position As Int, Value As Object)
arabicWord2L3A16 = spnMapL3A16AW2.Get(Value)
If arabicWord1L3A16 = "the boy" And arabicWord2L3A16 = "the tall" Then
ivResult.Visible = True
End If
End Sub