Zitat:

Habe ich mir gedacht, das soetwas kommt. So wie du es machen willst ist es nicht OOP.

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim c As InterfaceTest.IOS
        'os version ermitteln
        Dim os As String = My.Computer.Info.OSFullName
        'xp oder vista
        If os.Contains("XP") Then
            c = New InterfaceTest.ClassXP
        ElseIf os.Contains("Vista") Then
            c = New InterfaceTest.ClassVista
        End If
        Me.Text = c.os
    End Sub
End Class
 
Public Interface IOS
    ReadOnly Property os() As String
End Interface
Public Class ClassXP
    Implements IOS
    Public ReadOnly Property os() As String Implements IOS.os
        Get
            Return "XP"
        End Get
    End Property
End Class
 
Public Class ClassVista
    Implements IOS
    Public ReadOnly Property os() As String Implements IOS.os
        Get
            Return "Vista"
        End Get
    End Property
End Class