'你可以拉动窗体大小观察文字显示情况Private Sub Form_Click()Dim FrmStr As StringClsFrmStr = "屏幕中间居中显示"Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(FrmStr) / 2Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(FrmStr)Print FrmStrEnd Sub