不知怎样实现，能否给出示例代码吗？或思路、算法也可以！ GDI不懂，简单的用Move命令来实现，大致如下： VB code: Option Explicit Dim lngL As Long Dim lngT As Long Dim lngW As Long Dim lngH As Long Private Sub Command1_Click() Do lngT = lngT + 2 lblMove.Move lngL, lngT DoEvents Loop Until lblMove.Top >= 3000 End Sub
Private Sub Form_Load() With lblMove .Left = 0 .Top = 0 lngL = .Left lngT = .Top lngW = .Width lngH = .Height End With End Sub
请教一下：我用vb写了一个调用Illustrator的测试程序，代码很简单：Private Sub Command1_Click() Dim app As New Illustrator.Application Dim doc As Illustrator.Document Dim thislayer As Illustrator.Layer ......
