paylaşım için saol form yarıdan bölündü

Kod: Form Ve Kontrolleri İstenilen Şekilde Yapmak 'Projenize 1 adet modül ekleyin 'Formunuza 3 adet buton ekleyin 'Aşağıdakileri modüle kopyalayın Declare Function CreatePolygonRgn Lib "gdi32" As Long Declare Function SetWindowRgn Lib "user32" As Long Declare Function Polyline Lib "gdi32" As Long Public Type POINTAPI X As Long Y As Long End Type 'Aşağıdakileri forma kopyalayın Dim Result As Long Dim Points(1 To 4) As POINTAPI Private Sub Command2_Click hRgn = CreatePolygonRgn(Points(1), 4, 1) Result = SetWindowRgn(Form1. hWnd, hRgn, True) End Sub Private Sub Command1_Click Call Polyline(Form1. hdc, Points(1), 4) End Sub Private Sub Command3_Click Result = SetWindowRgn(Form1. hWnd, 0, True) End Sub Private Sub Form_Load Points(1). X = 500 Points(1). Y = 500 Points(2). X = 0 Points(2). Y = 0 Points(3). X = 1000 Points(3). Y = 0 Points(4). X = 500 Points(4). Y = 500 End Sub alıntıdır... By