VB solidworks 二次开发

weichen0513

我在VB环境中建立了两个按钮，代码分别如下，但是在运行的时候发生错误，错误提示在“retval = swapp.RevisionNumber”这一行
Private Sub Check1_Click()
Dim retval As String
If Check1.Value = 1 Then
retval = swapp.RevisionNumber
MsgBox "当前软件版本号为:" & retval
  End If
End Sub
Private Sub Command1_Click()
Dim swapp As Object
Set swapp = CreateObject("sldworks.application")
End Sub

但是当我把代号改写为如下代码时，程序又可以运行
Private Sub Command1_Click()
Dim swapp As Object
Set swapp = CreateObject("sldworks.application")
Dim retval As String
retval = swapp.RevisionNumber
MsgBox "当前软件版本号为:" & retval
End Sub