程序代码:
Private Sub Form_Load() Debug.Print Form1.Width / Screen.TwipsPerPixelX / 567 Debug.Print Form1.Height / Screen.TwipsPerPixelY / 567 Debug.Print Form1.Width * Screen.TwipsPerPixelX / 567 Debug.Print Form1.Height * Screen.TwipsPerPixelY / 567 Debug.Print Form1.Width / 567 Debug.Print Form1.Height / 567 End Sub