vb调用子程序 与 跳转语句

vb调用子程序 与 跳转语句
Private Sub Command1_Click()
call 盗用版权() '调用子程序
End Sub

Sub 盗用版权()
lxn = MsgBox("未经允许，不得将此程序进行盗用倒卖。  ", 32, "梅雷提示！")
End
End Sub

'跳转语句

Private Sub Command1_Click()
i=0

L:
i=i+1
text1=i
if i>10 then end
goto L:

End Sub
__________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/