Question

vb6怎样设置command使用label移动上下左右

求代码

Answer 1

private sub cmdup_click()
label.top = label.top -100
end sub

private sub cmddown_click()
label.top = label.top +100
end sub

private sub cmdleft_click()
label.left = label.left -100
end sub

private sub cmdright_click()
label.left = label.left +100
end sub