比如代码
Syscmd.Project.CommandWindow()
For Each frm As object In application.openforms
If frm.Name = "Class260" Then
Dim CodeRichTextBox As System.Windows.Forms.RichTextBox
msgbox(frm.text)
If frm.text.contains("代码编辑器")
CodeRichTextBox = frm.Controls("MyCodeEditor1").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
Else
CodeRichTextBox = frm.Controls("SplitContainer1").Panel1.Controls("MyCodeEditor21").Controls("SplitContainer1").Panel1.Controls("SplitContainer2").panel1.controls("Editor")
End If
CodeRichTextBox.text = "msgbox(123)"
End If
Next