奇怪的VB问题

form里面加个text2控件，然后If Text2.Text = "q" Then 'q-key 存盘
Dim swApp As Object
Dim Part As Object
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
Part.ShowNamedView2 "*等轴测", 7
Part.Save2 False
Form1.Show
Form1.ZOrder 1
Text2.Text = ""
End If

这段程序是存盘用的

上面一段程序可以通过使用

在模块里面加：
Option Explicit

Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Dim ReturnValue, i

Public Const WH_KEYBOARD = 13
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As

一个VB奇怪的问题？ 请问VB高手！很奇怪的问题 vb.net一个奇怪的问题 vb 奇怪问题 VB的奇怪现象 vb调用 dll 奇怪问题 VB数据库编程上的一个最奇怪的问题 关于VB编写FTP下载程序的奇怪问题 vb编程遇到的一个很奇怪很棘手的问题！帮忙！！ vb的几道奇怪题