Public Function SetCurrentItem(Index as int32)
    m_Current_Klasse2 = wie_auch_immer_du_das_Ding_holst
End Function

Public Class Klasse1
    Public Function GetValue()
        return m_Current_Klasse2.GetValue()
    end Function
End Class