Private Sub txtexam_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtexam.Leave
txtexam.Text = String.Format("{0:#,##0.00}", Double.Parse(txtexam.Text))
End Sub
Class txtexam
Inherits System.Windows.Forms.TextBox
Protected Overrides Sub OnLeave(e As EventArgs)
MyBase.OnLeave(e)
MyBase.Text = String.Format("{0:#,##0.00}", [Double].Parse(MyBase.Text))
End Sub
End Class