Visual Basic

Shared Function IsInteger(ByVal num As Decimal) As Boolean
    ' This will only work when num is inside the limits
    ' of a Long number type.  That's between:
    ' -9,223,372,036,854,775,808  and 9,223,372,036,854,775,807
    Return CDec(CLng(num)) = num
End Function

Alex@UEA wrote:

but he did state that he needed one, you just assumed he was mistaken

Alex@UEA wrote:

As I have said, I appreciate that it must be frustrating for you

Dave Kreskowiak wrote:

BTW: In your version, the function will only work for values with the limits of an Integer. Which is probably fine for most cases, but if there is no specification, you're making an assumption that it will work for ALL of his cases. That leads to hard to detect bugs and why I put the note in the code that I did.

Private Function IsInt(ByVal value As Object) As Boolean
     If IsNumeric(value) Then
         If CInt(value) = CDbl(value) Then Return True
     End If
     Return False
 End Function

Private Sub Form1_Resize(blah, blah) Handles Me.Resize
    If Me.WindowState = FormWindowState.Minimized Then
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
    Else
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
    End If
End Sub

Private Sub Button1_Click(blah, blah) Handles Button1.Click
    Me.MinimumSize = Me.Size
    Me.WindowState = FormWindowState.Minimized
End Sub

FileListBox.Refresh()