VB Coding Tip: Only Allow Numbers in a Nodes Text

Private Declare Function SendMessage _
     Lib "user32" Alias _
  "SendMessageA" (ByVal hwnd As Long, _
                  ByVal wMsg As Long, ByVal _
                  wParam As Long, _
                  lParam As Any) As Long

Private Const TV_FIRST = &H1100
Private Const TVM_GETEDITCONTROL = _
                              TV_FIRST + 15
Private Const ES_NUMBER = &H2000

Private Sub NumbersOnly(tvw As Treeview)
    Dim lngHwnd As Long  

    lngHwnd = SendMessage(tvw.hwnd, _
                          TVM_GETEDITCONTROL, _
                          0, 0)

    If lngHwnd <> 0 Then
        SendMessage lngHwnd, ES_NUMBER, 0, 0
    End If
End Sub