SMF Hacks
|
||
| Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Long) As Long Private Sub Form_Load() Dim hr&, dl& Dim usew&, useh& usew& = Me.Width / Screen.TwipsPerPixelX useh& = Me.Height / Screen.TwipsPerPixelY ' Oluşturuluyor... hr& = CreateEllipticRgn(0, 0, usew, useh) ' Gösteriliyor... dl& = SetWindowRgn(Me.hWnd, hr, True) End Sub |
||