Kod: 3 Boyutlu Form Yapmak Aşağıdakileri formunuza kopyalayın Public Sub üçboyutluform Const cPi = 3.1415926 Dim intLineWidth As Integer intLineWidth = 5 Dim intSaveScaleMode As Integer intSaveScaleMode = frmForm. ScaleMode frmForm. ScaleMode = 3 Dim intScaleWidth As Integer Dim intScaleHeight As Integer intScaleWidth = frmForm. ScaleWidth intScaleHeight = frmForm. ScaleHeight frmForm. Cls frmForm. Line (0, intScaleHeight)-(intLineWidth, 0), &HFFFFFF, BF frmForm. Line (0, intLineWidth)-(intScaleWidth, 0), &HFFFFFF, BF frmForm. Line (intScaleWidth, 0)- , &H808080, BF frmForm. Line -(0, intScaleHeight), &H808080, BF Dim intCircleWidth As Integer intCircleWidth = Sqr frmForm. FillStyle = 0 frmForm. FillColor = QBColor(15) frmForm. Circle , intCircleWidth, QBColor(15), -3.1415926, -3.90953745777778 frmForm. Circle , intCircleWidth, QBColor(15), -0.78539815, -1.5707963 frmForm. Line (0, intScaleHeight)-(0, 0), 0 frmForm. Line (0, 0)-(intScaleWidth - 1, 0), 0 frmForm. Line (intScaleWidth - 1, 0)-(intScaleWidth - 1, intScaleHeight - 1), 0 frmForm. Line (0, intScaleHeight - 1)-(intScaleWidth - 1, intScaleHeight - 1), 0 frmForm. ScaleMode = intSaveScaleMode End Sub Private Sub Form_Resize üçboyutluform Me End Sub alıntıdır... By

hiç önemli deil ark. yarın dewamı gelicek..

çok tşk ederim