Dim buf As String,num As Long
buf=ZeroString(GetWindowTextLength(GetDlgItem(hNumIptDlg,NumIptBox) ) )
GetWindowText(GetDlgItem(hNumIptDlg,NumIptBox),buf,GetWindowTextLength(GetDlgItem(hNumIptDlg,NumIptBox) ))
num=Int(Val(buf))
Dim buf As String,num As Long
buf=ZeroString(GetWindowTextLength(GetDlgItem(hNumIptDlg,NumIptBox) ) + 1 )
GetWindowText(GetDlgItem(hNumIptDlg,NumIptBox),buf,GetWindowTextLength(GetDlgItem(hNumIptDlg,NumIptBox)+ 1 ))
num=Int(Val(buf))