Function subBaseData(CtrType as string,CtrName as string,ActionValue as string)
Select Case CtrType
Case "EditBox"
EditBox Click, "Type=EditBox;Name="+CtrName, "Coords=1,1"
InputKeys ActionValue
case "ComboBox"
ComboBox Click, "Type=ComboBox;Name="+CtrName, ""
ComboListBox Click, "Type=ComboListBox;Name="+CtrName, "Text="+ActionValue
Case Else
MsgBox "File was not hidden."
End Select
End Function