Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Label2.Text = Format(Label2, "#,##0.00")
End Sub
Dim Rs As OracleDataReader = myCommand.ExecuteReader
If Rs.Read Then
Report_Sale_shipment.Label2.Text = CDbl(Rs("QTY")).ToString("#,##0.00")
Report_Sale_shipment.Label3.Text = CDbl(Rs("PRICE")).ToString("#,##0.00")
End If