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