[VBA]用vba做的窗体如何才能cad的窗体切换...

cnks

我用了mccad的

2. Dim i As Boolean
3. Private Sub CommandButton1_Click()
4.        Me.Hide
5. End Sub Private Sub UserForm_Initialize()
6.        i = True
7. End Sub
8. Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
9. 'Debug.Print X & "," & Y
10. If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then
11.        If i = True Then
12.                i = False
13.                Me.StartUpPosition = 3
14.                Me.Hide
15.                Me.Show 0
16.        End If
17. Else
18.        If i = False Then
19.                i = True
20.                Me.StartUpPosition = 3
21.                Me.Hide
22.                Me.Show 1
23.        End If
24. End If
25. End Sub

Dim i As Boolean Private Sub CommandButton1_Click()        Me.Hide End Sub Private Sub UserForm_Initialize()        i = True End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 'Debug.Print X & "," & Y If (X < 5 Or Y < 5 Or X > Me.Width - 15 Or Y > Me.Height - 25) Then        If i = True Then                i = False                Me.StartUpPosition = 3                Me.Hide                Me.Show 0        End If Else        If i = False Then                i = True                Me.StartUpPosition = 3                Me.Hide                Me.Show 1        End If End If End Sub

但是出现下面错误：
file:///d:/1.bmp