What I need is basically this:

Code:
Sub ApplyProperty(iObject As Object, iName As String, iValue As Variant)
    With iObject
        Select Case LCase(iName)
        Case "x": .Left = CLng(iValue)
        Case "y": .Top = CLng(iValue)
        Case "w": .Width = CLng(iValue)
        Case "h": .Height = CLng(iValue)
        
        Case "text": .Text = CStr(iValue)
        Case "caption": .Caption = CStr(iValue)
        End Select
    End With
End Sub

'Code improved by vBulletin Tool 2.0
I'm sure you know what I mean.. now is there a direct way to do this? Something like a CallByName function for properties?

Thanks,

Fox