Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
msgbox(Environment.OSVersion.ToString)
If (Environment.OSVersion.Platform = PlatformID.Win32NT) Then
Msgbox ("Current OS is NT based!!")
End If
End Sub
|