VB工程--實例93--圖形窗體

Option Explicit Private Sub Form_Click() End End Sub Private Sub Form_Load() Dim h, d As Long Dim scrw, scrh As Long scrw = Me.Width / Screen.TwipsPerPixelX scrh = Me.Height / Screen.TwipsPerPixelY h

>>阅读原文<<