VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CServo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'==============================================================================
'
' File   : Servo.cls
' Date   : 30.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
'==============================================================================
'
' Abstraktion von Servo
'
'==============================================================================
'
' History:
'
' Date   : 30.03.1999
' Version: 1.00
' Author : Andreas Schmidt, lindner&partner
'
' Erste Version.
'
'==============================================================================

Option Explicit

' Private Member
' --------------
Private m_nNr As Integer
Private m_nNennweite As Integer
Private m_nStellbereich As Integer

' Alle Member neu vorgeben
'
Public Sub setMember(nNr%, nNennweite%, nStellbereich%)
    m_nNr = nNr
    m_nNennweite = nNennweite
    m_nStellbereich = nStellbereich
End Sub