如图，我做的向右移命令按钮操作时label字样一直向右至超出边框字体消失，怎么控制让它移动一直在边框内？ 求代码啊，原谅我，刚学的，什么都不懂。。。

有人么？

Private Sub Command1_Click()
If Label1.Left - 200 > 0 Then
    Label1.Left = Label1.Left - 200
Else
    Label1.Left = 0
End If
End Sub

-----------------
Private Sub Command2_Click()
If Label1.Left + Label1.Width + 200 > Me.ScaleWidth Then
    Label1.Left = Me.ScaleWidth - Label1.Width
Else
    Label1.Left = Label1.Left + 200
End If
End Sub

收到的鲜花

• 小异yi 于 2013-03-18 16:57 送鲜花  2朵   附言：我很赞同

谢谢亲，我知道了，多多指教

我说新手，受教了，原来是一个判断语法啊。