Sub mnuIntent_Click
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_MAIN, "")
Intent1.SetComponent("com.rootsoft.viewcontainer/.topact")
Dim v As View
v = window.LoadActivityInWindow(1, Intent1)
Panel1.AddView(v, 0dip, 0dip, Panel1.Width, Panel1.Height)
End Sub