Indent Probs

[lavarock09]

Hey Guys,

I Have This Code For My Indent

Private Sub Image13_Click()
Frame2.Visible = True
End Sub

^^^^Above Is The Code Which Shows The Frame Called Frame 2 Which Has A Text Box(Called text1) And A Button (Called Command2),

VVVV Below Is The Code For The Frame

Private Sub Command2_Click()
Dim indentamount As Integer
indentamount = Text1.Text
If indentamount >= 9000 Then
MsgBox ("Number Must Be Under 9000") And ""
End If
RichTextBox1.SelIndent = indentamount
Frame2.Visible = False
End Sub

The Above isn't Right, because What it Should Do Is Make It So The User Can Choose The Indent Size.

and if the number inputted is MORE than 9000 it displays a MsgBox Saying "Number Must Be Under 9000" And Reset The Textbox but i can't get it to work

Can You help?

[Static]

If indentamount >= 9000 then
Msgbox "Indent Amount must be less than 9000"
text1 = ""
text1.setfocus
exit sub
end if

[lavarock09]

thanx, and how do I make the textbox only accept numbers as entries

[dglienna]

Use the KeyPress event:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case Asc("0") To Asc("9")
    Case Else
      KeyAscii = 0
  End Select
End Sub