How to Determine If a VB App is Running Under Windows NT 3.x

MORE INFORMATION

Step-by-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Place a command button (Command1) on Form1.
3. Add the following code to the general declarations section of Form1:

      Const WF_WINNT = &H4000&
      Declare Function GetWinFlags Lib "KERNEL" () As Long
   
      Function IsWindowsNT() As Integer
         IsWindowsNT = (GetWinFlags() And WF_WINNT)
      End Function
   						

4. Add the following code to the Command1 Click event procedure:

      Sub Command1_Click()
         If IsWindowsNT() Then
            MsgBox "You are running under Windows NT"
         Else
            MsgBox "You are running under Windows version 3.x"
         End If
      End Sub
   						

5. Test the program by running it and clicking the command button.