24/07/2010, 09:42
textbox içine yazılan sayıları virgülle yazma...
Private Sub Text1_Change()
Dim x
Dim s As Date
x = Text1.SelStart
Text1 = Format(Text1, "###,###")
Text1.SelStart = x + 1
End Sub
Private Sub Text1_Change()
Dim x
Dim s As Date
x = Text1.SelStart
Text1 = Format(Text1, "###,###")
Text1.SelStart = x + 1
End Sub