Here is a example for defining a Class, setting the values using Property and working with methods using Object of class.
‘********************************Code for Class********************************
‘Defining a Class
‘********************************Code for Class********************************‘Defining a Class
Class UFTHelp
‘Declaring variables inside class
Private sTool,sVersion
‘Using Let property for Setting the values of class members
Public property Let Tool (sUFT)
Select case sUFT
Case “UFT”
sTool = sUFT
Case “QTP”
sTool = sUFT
Case Else
Msgbox “Please enter Correct Tool to learn”
End Select
End Property
‘Method declaration
Public Sub version(sHP)
Select case sHP
Case “11.5”
If sTool = “UFT” Then
Msgbox “I want to learn ” &sTool&” “&sHP
End If
Case “11”
If sTool = “QTP” Then
Msgbox “I want to learn ” &sTool&” “&sHP
End If
Case Else
Msgbox “Please enter correct Version of Tool”
End Select
End Sub
End Class
‘Creating objects of class
Dim objHelp
Set objHelp = New UFTHelp
‘Setting the value of Local variable(Change value of TOOL and version to observe the behaviour)
objHelp.Tool= “UFT”
‘Calling the methods of class
objHelp.version(“11.5”)
‘Destroying the object
Set objHelp = nothing