J 
		
								
				
				
			
		JH
Dim SysInfo2 As System.Environment
Dim OS As String
With SysInfo2
Select Case .OSVersion
Case 4 : OS = "Win NT"
Case 5 : OS = "Win 2000"
Case 6 : OS = "Win XP"
End Select
End With
				
			Dim OS As String
With SysInfo2
Select Case .OSVersion
Case 4 : OS = "Win NT"
Case 5 : OS = "Win 2000"
Case 6 : OS = "Win XP"
End Select
End With
