#IF OBJC
#import "NimbusBadge.h"
- (void) setBadgeViewInternal:(NSString*)txt :(UIColor*)bgColor :(UIView*)viewButton
{
NIBadgeView* badgeView = [[NIBadgeView alloc] initWithFrame:CGRectZero];
badgeView.text = txt;
badgeView.tintColor = bgColor;
[badgeView sizeToFit];
[viewButton addSubview:badgeView];
}
#END IF
Sub setBadgeView(txt As String, bgColor As Color, v As View)
Dim no As NativeObject = Me
no.RunMethod("setBadgeViewInternal:::", Array As Object(txt, no.ColorToUIColor(bgColor), v))
End Sub