1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Imports System.Drawing.Drawing2D
FormBorderStyle auf 'None' setzen!
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' Pfad anlegen
Dim path As New System.Drawing.Drawing2D.GraphicsPath
' Dem Pfad Bereiche hinzufügen, hier eine Ellipse
path.AddEllipse(New Rectangle(0, 0, 300, 100)) 'spielt mal mit den Werten, macht Spass
' Aus dem Pfad ein neues Region-Objekt erzeugen und dem
' Fenster als Clippingbereich zuweisen
Me.Region = New Region(path)
End Sub
|