CombineRgn CombineRgn Dla lepszego efektu radzę usunąć wszystkie kontrolki z formy. CO JEST CO: hDestRgn - uchwyt docelowego regionu hSrcRgn1- uchwyt pierwszego regionu źródłowego hSrcRgn2- uchwyt drugiego regionu źródłowego nCombineMode - w jaki sposób mają być złączone regiony. Funkcja zwraca wartość określającą wykonaną czynność. ZOBACZ TEŻ: GetRgnBox, CreateRectRgnIndirect, SetwindowRgn, BeginPath, EndPath, PathToRegion, TextOut, DeleteObject, STAŁE REGIONU KOD MODUŁU: 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 GetRgnBox Lib "gdi32" (ByVal hRgn As Long, lpRect As RECT) As Long Private Declare Function CreateRectRgnIndirect Lib "gdi32" (lpRect As RECT) 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 BeginPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function EndPath Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, _     ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Type RECT     Left As Long     Top As Long     Right As Long     Bottom As Long End Type Private Const RGN_AND = 1 Private Function CreateRgn() As Long     Dim hRgn1 As Long     Dim hRgn2 As Long     Dim rct As RECT     BeginPath Me.hdc     TextOut Me.hdc, 10, 10, "RFX", 3     EndPath Me.hdc     hRgn1 = PathToRegion(hdc)     GetRgnBox hRgn1, rct     hRgn2 = CreateRectRgnIndirect(rct)     CombineRgn hRgn2, hRgn2, hRgn1, RGN_AND     DeleteObject hRgn1     CreateRgn = hRgn2 End Function KOD FORMY: Private Sub Form_Load()     With Me.Font         .Name = "Arial"         .Bold = True         .Size = 100     End With     SetWindowRgn Me.hwnd, CreateRgn, True End Sub COŚ DLA LENIWYCH: CombineRgn.zip