Public Delegate Sub sub_ShowNewPlayerCallback(ByVal objControl As Object, _
  objAttr As Object)
 
Public Sub sub_ShowNewPlayer(srtPlayerID As Short)
   Dim d As New sub_ShowNewPlayerCallback(AddressOf sub_ShowPlayerIcon)
   frmUITable.Invoke(d, New Object() {frmUITable.Controls("pnl_Player" + CStr( _
     srtPlayerID)), True})
End Sub
 
Public Sub sub_ShowPlayerIcon(ByVal objControl As Object, ByVal objAttr As _
  Object)
   objControl.Visible = objAttr
End Sub