I want to make a TextBox control that only accepts numerical values.
How can I do this in VB6?
Try this code:
Private Sub Text1_Change() textval = Text1.Text If IsNumeric(textval) Then numval = textval Else Text1.Text = CStr(numval) End If End Sub