Visual Studio 2002 Preview Kod Yardım

Öncelikle herkese merhaba Visual Studio 2022 Preview de şöyle bir program yapmak istiyorum fakat butonda takıldım ve düzeltmeye çalıştıkça dahada karmaşık bir hale gelmeye başladı program şu şekilde

kod şu şekilde

Private Sub Hesapla_Click(Of sender As Object, e As EventArgs, toplam3 As Object, toplam4 As Object, fiyat4 As Object, adet4 As Object, genetoplam As Decimal, geneltoplam As Decimal)() Handles hesapla.click

  ' Değişkenler

  Dim adet, fiyat, toplam As Decimal

  Dim adet1 As Object = Nothing

  ' 1. ürün

  Decimal.TryParse(adet1.Text, adet)

  Dim fiyat1 As Object = Nothing

  Decimal.TryParse(fiyat1.Text, fiyat)

  toplam = adet * fiyat

  Dim toplam1 As Object = Nothing

  toplam1.Text = toplam.ToString("N2")

  geneltoplam += toplam

  Dim adet2 As Object = Nothing

  ' 2. ürün

  Decimal.TryParse(adet2.Text, adet)

  Dim fiyat2 As Object = Nothing

  Decimal.TryParse(fiyat2.Text, fiyat)

  toplam = adet * fiyat

  Dim toplam2 As Object = Nothing

  toplam2.Text = toplam.ToString("N2")

  geneltoplam += toplam

  Dim adet3 As Object = Nothing

  ' 3. ürün

  Decimal.TryParse(adet3.Text, adet)

  Dim fiyat3 As Object = Nothing

  Decimal.TryParse(fiyat3.Text, fiyat)

  toplam = adet * fiyat

  toplam3.Text = toplam.ToString("N2")

  geneltoplam += toplam

  ' 4. ürün

  Decimal.TryParse(adet4.Text, adet)

  Decimal.TryParse(fiyat4.Text, fiyat)

  toplam = adet * fiyat

  toplam4.Text = toplam.ToString("N2")

  geneltoplam += toplam

  Dim adet5 As Object = Nothing

  ' 5. ürün

  Dim v = Decimal.TryParse(adet5.Text, adet)

  Dim fiyat5 As Object = Nothing

  Decimal.TryParse(fiyat5.Text, fiyat)

  toplam = adet * fiyat

  Dim toplam5 As Object = Nothing

  toplam5.Text = toplam.ToString("N2")

  geneltoplam += toplam

  CDec(0).Text = CDec(0).ToString("N2")

End Sub

chatgptye yazdırdım bakarsın https://s6.dosya.tc/server22/0vxffo/WpfPriceCalculator.zip.html