Forum Discussion
Replaced 1 by wild card * but it didn't help.
Sub Test1
Dim sonolab
Dim radTabStrip
Dim tableLayoutPanel
Dim radPanel
Dim radTextBox
Call TestedApps.Sonolab.Run(1, True)
Set sonolab = Sys.Process("Sonolab")
sonolab.Window("#32770", "Sonolab 7").Window("Button", "&Yes").ClickButton
Set radTabStrip = sonolab.WinFormsObject("MainForm").WinFormsObject("tableLayoutPanel1").WinFormsObject("radTabStrip1")
Call radTabStrip.ClickTab("Setup")
Set tableLayoutPanel = radTabStrip.WinFormsObject("RadTabStripContentPanel", "", 3).WinFormsObject("systemSettingsPanel1").WinFormsObject("tableLayoutPanel1")
Call tableLayoutPanel.WinFormsObject("panel1").WinFormsObject("radListBox1").ClickItem("User Authentication")
Call tableLayoutPanel.WinFormsObject("radTabStrip1").WinFormsObject("RadTabStripContentPanel", "", 2).WinFormsObject("radCheckBoxEnableAuthentication").Click(7, 13)
Set radPanel = sonolab.WinFormsObject("UserAuthenticationForm").WinFormsObject("buttonPanel")
Call radPanel.WinFormsObject("radTextBoxUserName").SetText("service")
Set radTextBox = radPanel.WinFormsObject("radTextBoxPassword")
Call radTextBox.Click(98, 2)
Call radTextBox.SetText("Fld1")
Call radTextBox.SetText("Fld1Svc")
radPanel.WinFormsObject("centeredLayoutPanel1").WinFormsObject("radButtonOK").ClickButton
Call radTabStrip.ClickTab("Maintenance")
Set tableLayoutPanel = radTabStrip.WinFormsObject("RadTabStripContentPanel", "", 4).WinFormsObject("systemMaintainPanel1").WinFormsObject("tableLayoutPanel1")