document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Protected Sub btnhitung_Click(sender As Object, e As EventArgs) Handles btnhitung.Click
  2. Textsisapembayaran.Text = Texttotal.Text - Textuangmuka.Text
  3. Dim nilai As Double
  4. nilai = Textsisapembayaran.Text
  5. If nilai <= 0 Then
  6. Textsisapembayaran.Text = "LUNAS"
  7. End If
  8. End Sub
');