Se posso...

codice:
In questo esempio vengono visualizzati il sistema operativo utilizzato e la relativa versione. Per eseguire questo esempio, inserire un controllo SysInfo e un controllo CommandButton in un form. Incollare quindi il codice di esempio nella sezione Dichiarazioni del form, eseguire il progetto e fare clic su CommandButton.

Private Sub Command1_Click()
	Dim MsgEnd As String
	Select Case SysInfo1.OSPlatform
		Case 0
			MsgEnd = "Non identificato"
		Case 1
			MsgEnd = "Windows 95/98, versione " & CStr(SysInfo1.OSVersion)
		Case 2
			MsgEnd = "Windows NT, versione " & CStr(SysInfo1.OSVersion)
	End Select
	MsgBox "Sistema: " & MsgEnd
End Sub
... dalla guida .

Se cerchi nel forum se n'è già parlato... ad esempio
qui .