Private Sub Form_Load()
   Dim region As Long
   region = CreateRoundRectRgn(0, 0, 200, 100, X3, Y3)
   'funkcia API
   'parametre X3 a Y3 nastavujú zaguľatenie rohov
   SetWindowRgn hWnd, region, True
   'druhá funkcia API (priradí parametre formuláru)
End Sub