Dim tb_srs As WinForm.TextBox = e.Form.Controls("TB_SRSNO")Dim tv As WinForm.TreeView = Forms("WorkProcessSchdule").Controls("TreeView1")tv.BuildTree("ProcessSchdule","SamplePart","SrsNo = '" & tb_srs.Text & "'")