国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

For   Each   frm   As   Form   In   Me.MdiChildren  
                          If   frm.Name   =   "表單name"   Then  
                                  frm.Activate()  
                                  Exit   Sub  
                          else  
                                  dim   frm1   as   new   表單class  
                                  frm1.show()  
                          End   If  
                  Next