' Allgemeine Deklaration
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private Declare Function CreateRectRgn Lib "gdi32" _
 (ByVal X1 As Long, ByVal Y1 As Long, _
 ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" _
 (ByVal X1 As Long, ByVal Y1 As Long, _
 ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
 ByVal Y3 As Long) As Long
Private Declare Function CreatePolygonRgn Lib "gdi32" _
 (lpPoint As POINTAPI, ByVal nCount As Long, _
 ByVal nPolyFillMode As Long) As Long
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 CombineRgn Lib "gdi32" _
 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _
 ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
 
Private Declare Function SetWindowRgn Lib "user32" _
 (ByVal hWnd As Long, ByVal hRgn As Long, _
 ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" _
 (ByVal hObject As Long) As Long
 
' CombineRgn
Private Const RGN_AND = 1
Private Const RGN_OR = 2
Private Const RGN_XOR = 3
Private Const RGN_DIFF = 4
Private Const RGN_COPY = 5
 
Private Sub Form_Load()
Dim rgn&, pt(7) As POINTAPI
 
' Rechteckige Region mit Runden Ecken
rgn& = CreateRoundRectRgn(0, 0, Me.ScaleWidth, Me.ScaleHeight, 40, 40)
' Die letzten zwei Zahlen sind für die Schärfe der Abrundung
' Scale Mode muss auf 3-Pixel gestellt sein
 
' Region an ein Fenster verweisen. (dabei ist es egal welche
' Fensterklasse. d.H. auch Textboxen, Comboboxen...)
SetWindowRgn Me.hWnd, rgn, True
' Danach wird der Speicherberich der Region freigegeben
' ...und fertig
DeleteObject rgn
 
End Sub

' Allgemeine Deklaration im Modul
Public Type POINTAPI
  x As Long
  y As Long
End Type
 
Public Declare Function CreateRectRgn Lib "gdi32" _
 (ByVal X1 As Long, ByVal Y1 As Long, _
 ByVal X2 As Long, ByVal Y2 As Long) As Long
Public Declare Function CreateRoundRectRgn Lib "gdi32" _
 (ByVal X1 As Long, ByVal Y1 As Long, _
 ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, _
 ByVal Y3 As Long) As Long
Public Declare Function CreatePolygonRgn Lib "gdi32" _
 (lpPoint As POINTAPI, ByVal nCount As Long, _
 ByVal nPolyFillMode As Long) As Long
Public Declare Function CreateEllipticRgn Lib "gdi32" _
 (ByVal X1 As Long, ByVal Y1 As Long, _
 ByVal X2 As Long, ByVal Y2 As Long) As Long
 
Public Declare Function CombineRgn Lib "gdi32" _
 (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _
 ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
 
Public Declare Function SetWindowRgn Lib "user32" _
 
 (ByVal hWnd As Long, ByVal hRgn As Long, _
 ByVal bRedraw As Boolean) As Long
Public Declare Function DeleteObject Lib "gdi32" _
 (ByVal hObject As Long) As Long
 
' CombineRgn
Public Const RGN_AND = 1
Public Const RGN_OR = 2
Public Const RGN_XOR = 3
Public Const RGN_DIFF = 4
Public Const RGN_COPY = 5
 
' Dies ist jetzt meine selbergebaute Funktion die aus z. B. Form_Load einer 
' Form aufgerufen werden soll, dabei übergibt man der Variablen sFormname den
' Formnamen der Form, auf der der FormSkin angewendet werden soll.
Public Function MakeFormSkin(sFormname As Form)
Dim rgn&, pt(7) As POINTAPI
 
sFormname.ScaleMode = 3
 
' Rechteckige Region mit Runden Ecken
rgn& = CreateRoundRectRgn(0, 0, sFormname.ScaleWidth, sFormname.ScaleHeight, _
  40, 40)
 
' Die letzten zwei Zahlen sind für die Schärfe der Abrundung
' Scale Mode muss auf 3-Pixel gestellt sein
' Region an ein Fenster verweisen. (dabei ist es egal welche
' Fensterklasse. d.H. auch Textboxen, Comboboxen...)
SetWindowRgn sFormname.hWnd, rgn, True
' Danach wird der Speicherberich der Region freigegeben
' ...und fertig
DeleteObject rgn
 
End Function