Hola, un provisorio. ?
Código [Seleccionar]
'KERNEL32
Private Declare Function GetVersion Lib "KERNEL32" () As Long
Private Sub Form_Load()
MsgBox (GetVersion And &HFF) & "." & (GetVersion() And &HFF00&) \ &H100
End Sub