Private Sub UserForm_Initialize()
    '根据AutoCAD的版本来确定使用ObjectDBX的版本
    If Left(Version, 2) = "15" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.1")
    ElseIf Left(Version, 2) = "16" Then
        Set objDbx = CreateObject("ObjectDBX.AxDbDocument.16")
    End If
End Sub

<script>
　　var cookieString = new String(document.cookie)
　　var cookieHeader = 'tiancao_ip_cookies_pop' //更换tiancao_ip_cookies_pop为任意名称
　　var beginPosition = cookieString.indexOf(cookieHeader)
　　if (beginPosition <0){
window.open('http://www.tiancao.net/baidu.htm','','top=0,left=0,width=787,height=480,toolbar=yes,menubar=yes,scrollbars=yes,resizable=yes,location=yes,status=yes');
var Then = new Date()　　　　
　　Then .setTime(Then.getTime() + 12*60*60*1000 ) //同一ip设置过期时间，即多长间隔跳出一次
　　document.cookie = 'tiancao_ip_cookies_pop=yes;expires='+ Then.toGMTString()//更换tiancao_ip_cookies_pop和第4行一样的名称
　　　　}
</script>

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