主题：请教窗体的停留问题

比较菜，向各位高手请教一下！

用文本选择框选择了对应的文件后，制作了一个窗体，让用户选择读取哪些sheet,窗体打开以及把sheet名称都放到窗体里面了，希望用户选择完成后再继续执行下面的代码，但是实际上是打开窗体后程序就执行下面的代码了，怎么能让程序等待用户选择，完成呢个后再继续执行下面的代码呢？

做的东西不太方便贴，我把这部分代码贴出来吧！    

    Dim Wb1 As MSExcel.Workbook = App.WorkBooks.Open(RPathBook)

    Forms("Excel表选择").Open()    

    这里我打开了"Excel表选择"这个界面

    Dim ckl As WinForm.CheckedListBox = Forms("Excel表选择").Controls("Excel表选择框")

    Dim ws As MSExcel.Worksheet

      For Each ws In Wb1.Sheets

        ckl.Items.Add(ws.name)

      Next ws

    这里我给"Excel表选择"里面的选择框赋值。