Private Sub cbproduct_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbproduct.SelectedIndexChanged
        txttotal.Text = txtharga.Text * cbproduct.Text
        txtsisa.Text = txttotal.Text
    End Sub