[code]Private Sub Form_Load()
Dim hr&, dl&
Dim usew&, useh&
usew& = Me.Width / Screen.TwipsPerPixelX
useh& = Me.Height / Screen.TwipsPerPixelY
' Olusturuluyor...
hr& = CreateEllipticRgn(55, -20, usew, useh) 'Bu sayilari degistirerek pencere ile oynayabilirsiniz..
' Gosteriliyor...
dl& = SetWindowRgn(Me.hWnd, hr, True)
End Sub[/code] :8:

Beğeniler: 0
Favoriler: 0
İzlenmeler: 813
favori
like
share
onrozcn Tarih: 14.06.2006 07:36
tesekkurler...
SempaticH Tarih: 10.06.2006 10:05
çok teşekkürler ellerine sağlık
vampir4518 Tarih: 08.06.2006 20:20
saolasın arkadasım yuvarlak nasıl olcek acep :20:
dr.stear Tarih: 08.06.2006 14:45
ellerine sağlık kardeşim!
hayrullahkara Tarih: 19.05.2006 22:08
saol :20:
halaskar_41 Tarih: 10.05.2006 14:29
yuvarlak?
BlueLive Tarih: 09.05.2006 17:50
ilgin.vee güzeel bir şey gibi..denemektee fayda war...tşk