program function visual basic 6.0

Function:

Public Function DiskonHarga(Harga As Integer, Diskon As Integer)

DiskonHarga = Harga * Diskon - Harga

End Function

Private Sub Command4_Click()

Dim HargaDiskon As Integer

Harga = DiskonHarga(Text1.Text, Text2.Text)

Text3.Text = Harga

End Sub

Private Sub Command6_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub