不知怎样实现，能否给出示例代码吗？或思路、算法也可以！ 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
function multi(a as integer,b as integer,optional third) dim n as integer n = a * b if not ismissing (third) then n = n * thid end if multi = n end fu ......
