Создание нестандартных окон

    Namespace System
        Public Class Win32API
            Public Const WS_EX_LAYERED = &H80000
            Public Const ULW_ALPHA As Int32 = &H2
            Public Const AC_SRC_OVER As Byte = &H0
            Public Const AC_SRC_ALPHA As Byte = &H1
    
            'Точка (координата)'
            <StructLayout(LayoutKind.Sequential)> _
            Public Structure Point
                Public x As Int32
                Public y As Int32
                Public Sub New(ByVal x As Int32, ByVal y As Int32)
                    Me.x = x
                    Me.y = y
                End Sub
            End Structure
    
            'Размер'
            <StructLayout(LayoutKind.Sequential)> _
            Public Structure Size
                Public cx As Int32
                Public cy As Int32
                Public Sub New(ByVal cx As Int32, ByVal cy As Int32)
                    Me.cx = cx
                    Me.cy = cy
                End Sub
            End Structure
    
            ' Определяет режим вывода полупрозрачных изображений'
            <StructLayout(LayoutKind.Sequential, Pack:=1)> _
            Public Structure BLENDFUNCTION
                Public BlendOp As Byte
                Public BlendFlags As Byte
                Public SourceConstantAlpha As Byte
                Public AlphaFormat As Byte
                Public Sub New(ByVal BledOp As Byte, ByVal BlendFlags As Byte, ByVal SourceContrastAlpha As Byte, ByVal AlphaFormat As Byte)
                    Me.BlendOp = BledOp
                    Me.BlendFlags = BlendFlags
                    Me.SourceConstantAlpha = SourceContrastAlpha
                    Me.AlphaFormat = AlphaFormat
                End Sub
            End Structure
    
            ' Получает дескриптор контекста дисплея для клиентской области указанного окна'
            <DllImport("user32.dll")> _
            Public Shared Function GetDC(ByVal hWnd As IntPtr) As IntPtr
            End Function
    
            'Создает совместимый контекст с заданным устройством'
            <DllImport("gdi32.dll")> _
            Public Shared Function CreateCompatibleDC(ByVal hDC As IntPtr) As IntPtr
            End Function
    
            'Освобождает контекст'
            <DllImport("user32.dll", ExactSpelling:=True)> _
            Public Shared Function ReleaseDC(ByVal hWnd As IntPtr, ByVal hDC As IntPtr) As Integer
            End Function
    
            'Удаляет контекст'
            <DllImport("gdi32.dll")> _
            Public Shared Function DeleteDC(ByVal hdc As IntPtr) As Boolean
            End Function
    
            'Выберает объект в заданный контекст'
            <DllImport("gdi32.dll", ExactSpelling:=True)> _
            Public Shared Function SelectObject(ByVal hDC As IntPtr, ByVal hObject As IntPtr) As IntPtr
            End Function
    
            'Удаляет объект'
            <DllImport("gdi32.dll")> _
            Public Shared Function DeleteObject(ByVal hObject As IntPtr) As Boolean
            End Function
    
            'Обновляет многослойное окно'
            <DllImport("user32.dll")> _
            Public Shared Function UpdateLayeredWindow(ByVal hwnd As IntPtr, ByVal hdcDst As IntPtr, ByRef pptDst As Win32API.Point, ByRef psize As Win32API.Size, ByVal hdcSrc As IntPtr, ByRef pprSrc As Win32API.Point, ByVal crKey As Int32, ByRef pblend As Win32API.BLENDFUNCTION, ByVal dwFlags As Int32) As Boolean
            End Function
        End Class
    End Namespace

Dim sf As New StringFormat(StringFormatFlags.LineLimit)
                    sf.Alignment = StringAlignment.Center
                    sf.LineAlignment = StringAlignment.Center
                    .DrawString("Сходить за молочком и забрать кошку от ветеринара", Me.Font, New SolidBrush(Me.ForeColor), New Rectangle(10, 10, bmpDest.Width - 20, bmpDest.Height - 20), sf)