Dim Alpha As Integer = Window1.Alpha
Canvas1.Alpha = 230
me.AlternativeImage = myPicture
me.AlternativeTemplate = myPicture
me.AlternateTitle = "Systems online"
Dim s as String = me.AlternateTitle
mac + win]
[mac + win]
me.ImageHugsTitle = True"
Dim b as Boolean = me.ImageHugsTitle
me.ImagePosition = AppKitAddition.NSCellImagePosition.ImageLeft
Dim p as AppKitAddition.NSCellImagePosition = me.ImagePosition
[mac + win]
me.ImageScaling = AppKitAddition.NSImageScaling.None
Dim s as AppKitAddition.NSImageScaling = me.ImageScaling
[mac + win]