VBCE.com - InEmulation Function

Dev Corner

Sample Code

Controls

Workarounds

Tips & Tricks

Q & A

Forums

Goodies

Downloads

Software

Bookstore

General

Home

What's New

General Info

Misc. Info

News Worthy

News

Articles

Editorials

KB Articles

Reviews

Awards

Miscellaneous

Web Links

Partners

Feedback

Advertising

<% On Error Resume Next SiteStats() %>

Sponsors

More...

InEmulation Function

Public Function InEmulation()
    '=============================================
    'PURPOSE: Checks if the App is running in the
    '         emulator
    'PARAMS: NONE
    'RETURNS: True - In Emulation
    '         False - Not in Emulation
    '=============================================
    On Error Resume Next
    If Screen.Width > 1000 then
        InEmulation = True
    Else
        InEmulation = False
    End If
End Function


	Unless otherwise noted, all information on VBCE.com is Copyright 1998 - 2002 Windows, Windows CE, and Visual Basic are trademarks of the Microsoft Corporation. VBCE.com is not responsible for content on external sites. Send all feedback to webmaster@vbce.com Webmasters - feel free to link to