public Sub Initialize (TheX2 As X2Utils,actorName As String,thePos As B2Vec2,theID As Int,theIndex As Int)
x2=TheX2
GaugeBaseName = actorName
thePosition = thePos
coupledID = theID
coupledIndex = theIndex
uniqueId = DateTime.Now
SetupObject(thePos)
End Sub