Hi,
CAN ANYONE HELP ON THIS??
Private Sub mnuFileSummary_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileSummary.Click
Dim strMessageString As String
'Call Pay procedure
Call mnuFilePay_Click(sender, e)
'Caculate the total Sales, total commissions & total pays
mdecWeeklySalesSum += decWeeklySales
mdecCommissionsSum += decCommissions
mdecTotalPaySum += decTotalPay
'Display a message box containing total sales, total commissions, and total pay for all salespersons
strMessageString = "Total Sales: " & FormatNumber(mdecWeeklySalesSum, 0) _
& ControlChars.NewLine & ControlChars.NewLine _
& "Total Commissions: " & FormatCurrency(mdecCommissionsSum)
& ControlChars.NewLine & ControlChars.NewLine _
& "Total Pay: " & FormatCurrency(mdecTotalPaySum, 2)
MessageBox.Show(strMessageString, "Sales Report", _
MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub