Dim tracker As NativeObject = analytics
tracker = tracker.GetField("tracker")
Dim fields As NativeObject
fields = fields.Initialize("GAIFields").RunMethod("customDimensionForIndex:", Array(1))
tracker.RunMethod("set:value:", Array(fields, "Premium User"))
Dim DictionaryBuilder As NativeObject
DictionaryBuilder = DictionaryBuilder.Initialize("GAIDictionaryBuilder").RunMethod("createScreenView", Null)
tracker.RunMethod("send:", Array(DictionaryBuilder.RunMethod("set:forKey:", Array("premium", _
fields)).RunMethod("build", Null)))