在屏幕中间放置一个label控件,在按钮的事件中设置label控件的caption属性
Private Sub Command1_Click()Form1.CurrentX = Form1.ScaleWidth / 2Form1.CurrentY = Form1.ScaleHeight / 2Print "十"End Sub
print "十"