PublicSubupdateStatusBar(ByValPanelNumAsInteger,ByValStringValAsString,ByValBitmapAsBoolean)IfNotBitmapThenSt1.Panels(panelnume).Text=StringVal