Private Sub Command3_click()
Option2.Value = True
r4 = Val(Text4.Text)
r5 = Val(Text5.Text)
r6 = Val(Text6.Text)
If r4 = 0 Or r5 = 0 Or r6 = 0 Then
  Label1.Caption = Format("0.00" & "Ohm")
Else
  r7 = 1 / r4 + 1 / r5 + 1 / r6
  r8 = 1 / r7
  Label1.Caption = Format(r8, "0.00" & "Ohm")
End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.