arkadaşlar ben aşağıdaki programı yazmaya calıştım, başlıkta belirttiğim gibi 2.dereceden 1 bilinmeyenli denklem cozen bir program.ama bir yerde hata gozukuyor, ben cozemedim, yardımcı olursanız cok minnettar olucam.saygılarımla..

Dim A, B, C, delta, X1, X2 As Single

Private Sub Command1_Click()
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
If A = 0 Then
X1 = -C / B
Label1.Caption = X1
Label2.Visible = False
Label5.Visible = False
Else
delta = B ^ 2 - 4 * A * C
Select Case delta
Case 0
X1 = -B / 2 * A
Label1.Caption = X1
Label1.Caption = Round(X1, 4)

Case Is < 0
Label3.Visible = True
Label1.Visible = False
Label2.Visible = False
Label4.Visible = False
Label5.Visible = False

Case Else
X1 = (-B + Sqr(delta)) / 2 * A
X2 = (-B - Sqr(delta)) / 2 * A
Label1.Caption = X1
Label2.Caption = X2
Label1.Caption = Round(X1, 4)
Label2.Caption = Round(X2, 4)
End Select
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label3.Visible = False
Label1.Caption = ""
Label2.Caption = ""

End Sub

Hata Label3.Visible = False kodunda gozuyor, ama cozemedim
__________________