Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Form Circolare - Form1.frm

Form1.frm

 Caricato da:
Scarica il programma completo

  1. 'Option Explicit
  2. Private Declare Function SetWindowRgn Lib "user32" _
  3. (ByVal hWnd As Long, _
  4. ByVal hRgn As Long, _
  5. ByVal bRedraw As Boolean) As Long
  6.  
  7. Private Declare Function CreateEllipticRgn Lib "gdi32" _
  8. (ByVal X1 As Long, _
  9. ByVal Y1 As Long, _
  10. ByVal X2 As Long, _
  11. ByVal Y2 As Long) As Long
  12.  
  13. Private Sub Form_Load()
  14.  
  15. hr& = CreateEllipticRgn(0, 0, 100, 200)
  16. dl& = SetWindowRgn(Me.hWnd, hr, True)
  17. End Sub