Private Sub Form_Resize()
Command1.Left = Me.ScaleWidth - Command1.Width
Command1.Top = Me.ScaleHeight - Command1.Height
End Sub
朋友,你好,你就自己多试一下吧。。减去一下值就行啦。。。。。
你不用担心其它的事。只要能实现效果就OK
'需要控件:command1
Private Sub Form_Resize()
Command1.Left = Me.Width - Command1.Width - 100
Command1.Top = Me.Height - Command1.Height - 500
End Sub