Visual Basic Yuvarlanan Form Örneği

Merhaba arkadaşlar bugünkü ilk yazımı Visual Basic kategorisine yazıyorum sırasıyla her zamanki gibi devam edeceğiz..Diğer kategoriler konusuna özel yazacağım şeyler var hemen yazımıza geçelim sonra bahsederiz anlatacığım konudan.Bugün Visual basic'te yeni bir örneği ele alıyoruz kodumuz form'u yuvarlatma kodu aşağıdaki kodu alıp form1'e forma çift tıklarsanız kaynağına ulaşırsınız ardından bu kodu yapıştırın ve sonucu görün şaka programlarında kullanılcak güzel bir kod bence.
Private Sub Form_Load() Dim hr&, dl& Dim usew&, useh& usew& = Me.Width / Screen.TwipsPerPixelX useh& = Me.Height / Screen.TwipsPerPixelY hr& = CreateEllipticRgn(55, -20, usew, useh) dl& = SetWindowRgn(Me.hWnd, hr, True) End Sub