Progressbar Image element

 Voici comment réaliser un progressbar image avec 3 élément.

vous pouvez choisir 3 type image élément dans la classes ou pas.

ma classe :

Public Class ProgressbarImage : Inherits ProgressBar

    Public _ImageBleu As String = "iVBORw0KGgoAAAANSUhEUgAAAR8AAAAWCAYAAAD5L5gxAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAGsklEQVR42u2c+29a5xnH+QcrTZqm7Jds+6Wq1KmrsnZbW0XTWnWNli1aE6WV4l7UeEmKbbAJ5mJztSHGxHYMjmvAJibmjs3NcG5gwN++zyHx2kibnONfsPUgfWUw533ez/P+8NF7DgdM6+vrCAaDcLlccDgccDqd+nO32425ubmTON1zsDncsNhdmLS5YJ45W6iGVdSimlT7p3MZCfMxH/ONFh85hFxCTiG30HNyDTknkUjARC/C4TDW1taQTqdRLBZRLpd/lpLI83wJ8Z0Cwj/k4Y3l4H6SPVOoxpKoFU8X9NqlV+Z8nTAf8zHf6PKRU8gt5BhyDTknEAjARHZaWVlBJpOBJEkYDAb46eP4RdSjAcqtHpL7R4judRDY0eBJqphLGIt/W8VSRsNmqYtSqw+pM0Cvf4xjMRnltA/mYz7mG20+cgq5hRxDriHnTE9Pw0RboWQyiUajgU6n8z/h+4NjvYGKaCCW78Kf1GCPq7CsKYZifaLAFlPh2VKxKhbjebWnN2B0cZmP+ZhvdPnILeQYcg0558GDB8OdTzab1d98ddfzsyZeFJW0ATIHPTzOdODc0DCxouDesoLxiGwoZjHeIepEdjvI1vpoi/pHRgzPfMzHfCPLR24hx5BryDnj4+Mweb1elEol/c3j/9PNy2K0taIGsvU+Hj3rYCam4W5EwZ2QbChfP5LxXYRMqiKU7mCn0tMbMLq4zMd8zDd6fOQWcgy5hpyj73z8fj8qlYr+5mkyGAxzqPaRKB8hmNJgXlVxJyzj9oKMW0FjofFUJ5Dq4Jkwc1Ppo9sbnMzHfMzHfOefj1xDzjGbzTDRVWf6R7/fP1V6vWG0bg8N+UiYrot5cd43HlVwS8Bf9xnLDb+Mm2L83Shd0NLwtNhFXTo6mY/5mI/5zj8fuYacMzExMZQPbYW63a6hVFsdrOc0ODYVjC0puC4g/u6R8cm8sdD4MbGNm93UsFnsYL/Vhax2mY/5mO8C8JFryDlTU1PD+3wKhSJUVYOmvX7asopKQ8VGXoU1LuwpzgM/FvAfOI3lqns4/mZIgSWuIvpcRVnUZz7mY77zz0f3/JBzLBYLTHO+IGLbeewdKKgdSvrn8a+bdltCvtpGON3G/VUJ1/wS3ndKeMcu4W2bYih/FI18GpDx3aqCSEZhPuZjvgvAl8vldPno9/lY3Au4H8nBsdXCTrGJer2hfx7/uqlUG9gt1bG43cQXSy28727jt9MyfjWpGMqlKQWXpxVcESa9uSQxH/Mx3wXg281k/iuf8dlFXJvL4XMxoS/VwHahhuJ+DdXqMLXa6ULHHogk8zXYnjbxr1ALvxf2vGSV8QsB84bZWH4txr/rlpiP+ZjvAvCtbO2CzrZmZmZg+tq2iD/b83jPI+F2tAVXoqk3cGAAnlKoDBvwJptiwjauzEu4/FDBL63GcmlGwW/sCvMxH/NdAL7vl/dgdb+Qz5iQz5WHBbwltkdXgxLGVtsIpZt4VqyjdAaD0gI4xULcjrbxF7+MN10yfudQcXnWWJiP+Zjv/PN9HsjhvmNhKJ9v7Yu46iriDx4Vf/IruBaWMb4uIbhziF3RQNWgQWnrRw0sioX4Zk3CpyEZ7/kUvD2vGgrzMR/znX++zzwF3J1dHMqHrvlc9xVwdUHFhyJ/C6m4+VjB1GYbq3uH2CvXUTk4PfyrjdBFrGD6EPfiEm4sK/irqP/RgoYPgsbCfMzHfOeP7yPhFnIMuYaco19w/t7hx1fhrACWcT2q4h9RDf9e0fBNTIUjJWFlr4XsfgO1eh11A6lU68iUG3qd6YSEO+sqbjzW8NmysTAf8zHf+eP7p3DLrRX6LlgW5Bz9Ph+LywdzZEds1WoYW5fxZayDL0S+2tBgTirw7UrYKrdQqjVRbTTRaA7TPGVeHp87aGI114Y7LePeDxruxDUxl6bPZSTMx3zMdz74yCnklvFYHRORNKzCOfrOx+kNYDayAVssi8nEIe5vq7i3rel/J9MqnBkFkYKMxL6ESqOFw9YwrVPm5fG1ZguFWgtbFRmLWQX2ZyrMOyr+k+oYCvMxH/ONPt+JS4RbbLEcHMI15Bz6WVXTQngJ3keP4Yw+he3JLiyxPCzxAiwbRT0PN4vwJApY3s4jlcliL5vVf5PDSGgs1YiIWp6tAh4+LZ7MYzTMx3zMN8J85BLhFHILOYZcQ84JhUIwxeIbCIbCmJ33weLyYtLpxZTbLxKAdT6IGU8Qdm8QLl8QXn9A/1LYWUI1qJZd1J0R9a1nDPMxH/ONJh85hFxCTiG3kGPINeScVCqFHwGU7eEHaC1RlwAAAABJRU5ErkJggg=="
    Public _ImageBleu2 As String = "/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/2wBDAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQH/wAARCAAQAOgDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQFBgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEII0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNkZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLDxMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEBAQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJBUQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZHSElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaanqKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oADAMBAAIRAxEAPwD+wzw59n1G80nw3olvb2wlMOn2VpawpBb2dpFHsIhgjCpFbWlshbYiqiRxgAYGK+sdX1PTPA/haS7LKltpNpHbWkTEBri4IEdrFjOTJPNhnPUKXc8CvlH9kLwi17ol58VNQuFvU1uNrLwpci4F3FLo4YNe6xaTBpI5YNUmVLe0nhdkms7SSSN2iuFJ81/at+Kbax4ut/Auj3Lf2d4UzLq7xsQtz4huIxvjLKQGGlWjrAQwIFzcXGPmiU1+x4rIf9aeN6fDGW4iNXLspjKvmmOpLmpRVNQliOWUGouMKjhgaWutWU5R91Nv+c8FxZLgnw2qcbZxh5UM34glDD5Nl9abjXnGtLlwlSanFVIqrSdTNKjcFKnh40VUSm3FegzeJ4726eaV/tF3dztI5XG+a4nfcdowRulkfag91Ck8AfWnhjSIPDHh2MXTRW0ghe/1aYthI5miEk5dzhdlrGnlAk/N5ZPU1+fn7LPg258Z+M5fEupK7aD4OMMw80sYrzX51ZtNtsE7WWziRtSmXkblstwxICfbf2sfig3hzQ7HwDpUxXVfEYW/1Vo2xJbaDbT/ACRNjJV9WvU8o5xvtLW5H/LQCtOKMieP4py7gTJ6ntaq9nUzCpCDVHDKMfaSjUUW04YXDXrTh9p16MI++3FRwTxXHK+CM38S+IaHsaXv0MopVZr2uMqRaw7dJzV+bHZgpUackny06NaUuWMdfP8Ax/Z6n408Tanr7YeO5kSCwiVlYW2n24MVnCCOCxjJll6AyyuRxX0B8Avh6PC+j3fiC/h26trzRxQK4Ia30i3YtAgHZr2fN0+Mlo0tunSvhf4O2Ou/EHx1pHhqG5uVsSzajrtwrMPs2jWLI12dy52yXLPHY22TzNcqQfkOf0B+N/xFt/hb8Prq6tSkOrXwXQ/DdsoGVu5ITuuFTgvFplmj3DvjBeOGI8uK7ONqGYYOeUeH+XVqdarj/q1N4fD05RlTw6nCOGhV1k1GpKnOvVu+b2dFzkuSo1LzPDbF5Ni6GfeK+c4erhsPlH16s8ZiqkZxxGOdBzxtbC6X54xqKhSVpe/iPZQvUhaPh3xyutR8Z+KFsbVXfR/Diy2lqAcpPqEhU6heDAIwGRLWI84S3Yg/O2df4A/DN49dm8Xapb4j0gPb6Sj5xJqU8ZEt2uR0srZ2jQk7RNcBsExrj420jxb4o8RavpehaVJPcaprF/babZxtJJmS7u5FjRpCTu2LuaadwcrGsj5GCR+pMlzo3wk+G0l7qE5ex8K6M095cNgSahequXxu6z6pqUgigUnO+eNOFXjTjClj+Echy3hLB1aMsVm1NYOlh8LGf1mdKU4Qr1ZKLcubHVqyoq6TlzVFF+6mp4AxGWcccTZ1x5mNGvSweRzWY4jE4upTeFpYmOHVTD0Yy0io5bhaCxE4q9OElZv3tfKf2hNUvtTtLHwbpgYxvJFqmtsoBDLE2dNsyQccyhr2dQD8qWy4+Zq8V+GPwquPEPi2wTUbZv7H0111LUy2ds0UDhrezyAPmu7hVRx2t0nPQV856t8WvEGtapqWsX1zKt1qN1PdyJHJIY4fMZikEK8HyoI9kEKZBKRqPvEk/ph8FvDd34T8BWN14glMWtavCNb1lp2+axjlhEtrZSFj+6WxsSjXGcBbiS46YBrXPMNjvDrhChgfa4anjcyc8PFU1L288RXgvreI5k9Y4WElSpySvzKgre82c/D2Lyjxb4/xWZTw+LqYHKIUMXWlWnH6pTwGFqWy7CO6VvrdZTxMoylzJxr1Z68qlL8Yddu9H8Iz6dpRI1TX0l0uAw8G1spI1XUbpQOFKwH7LCQeJLjcvKV8U6J8NtW1vVdP0m2hMb3txHCZcfJbQ9ZrhsjHl28SvIc9doGCTXKfFL44Xni/xrrGoaZPKuh20x07Q0Uuivp1qzKl3tGBv1CUvek9QksKZOwGvqj9lvQ9RvtCvPH2uPKTqzS2Hh+KUs2NMtpWjvr8Ann7beRG2hKn/UWchBPnE0UsuzHw64LlmOIeHo43HunN0akZfWHjMTBTpUGubX6pSbqVEklFxq3d3qYjOcp8WvESnlGEWMxGAyxV6MatOcPqkMsweKX1rF03GKS/tDEezp0ZNrmhVw8U1Frl9+1GSw+HngjbpsCmDQtNistJtR1uLpYxFZxtn5maa4YTXLdMec/GDX593XhbXNSvbm8uI5ru/wBRu5rq4dVBkuLq8nMsrKo4zJNLhAG4DKvQV1v7S/xmmn8Xr4N0O4b7B4W3Lqc0UhAudeuIw08JKZUppds0duF/huJ7kEfIpFv9mOx1jx14ouvEOoPM2heFPK2hy5S8125QtaQZPyutlBvvpx/C7Wit/rDieHcozHhLhLG8YY6VClVzGhDGyWIjP6xUhV0wNHR3dTGVasKrSXN+9j7S3s246cWZ7lHHfHGVcB5XTxGIoZTiJZZBYOdNYShOjGLzHFJJaUsvo4eeG5tIyVF+yfvxU/rv4c+ErP4d+CrWwmMa3KQTavrlznhr2SMS3JH+xaQotpAMYKwBsEsa+LvHVvrXjXxTq3iK5gkVbuYR2MD8/ZNNtwYrK34XgrF+8lx96aWUnk163+1L8Wf+EV07TPBWlzkavreL/VWjOHttEt5NkMbbSWjfU7pHUDIP2aznYjEoz80/CSTX/iZ470nw4lxcLpy7tU12cO+2DRrFkN2eOkl07xWUORjzLgN8201PBeT5jSy7NvEDMa1Cj9bhi8Q8Rioy5/qtKo6tWrTV42+sTi6NCKV3CnCEI8slE08Q+IcnxGb5J4WZNQrYhZZXy/ArD4GUFD+0K2FUcPh5xfxfU8NWWJrucuWFSs3KXtozUPtL4B/D7/hFdDutevYSur6/5flhsB7bSYGY28IJxg3cxa7fuYxb56V5H8cbrUvGnipbW1Vm0bw6stjZgD5Z7yR0OpXg+8WBkjjtYWwB5cDPkeZz7j8dfiNb/C34f3FzZFI9Y1VRoXhy34Gy4lhPm3SIOselWKPPkBv3v2dMESV+cGg+K/E/iPWNJ8P6VJcXOqazqFtptnGZJG3XFzIFDStyRHGN09xIc7Io5ZDnBrPgjKc24gx2aceYuVGnThUrQwtXFqXs6UKNOPtqtNtxUYYOgo4dTS5dar1nF208Sc+yHhfLMm8MMJTxGIl7PB1cdh8FKLq1auIrc2FoVo8snKeOxjliXT7KhzJUbH2V8AvhpJDrNx4u1SDbHpQa00hJBw9/PHtursdiLO2YwoSQPOuHIUmOuk/aD1O+1KGy8G6ZuaBng1TW3Q/K5iOdNsjwThW3Xsq5+8tvu7ivWry/0X4SfDiW9vrkvp3hfRvMnlb5pdSvsAAAsTm41XUZRFEh5DTqOVQV+WOr/FjX9Z1HUNXvLmUXeo3U93Kqu4RGmcssMKZA8qBNsMSg/wCrReOtY8LZfmnHHE2N4n/dPBZRUjhsFKvGfsZVYRcqCiuaylTor67U1ahVrU7tpo141zbIvDTgzAcF3rRzDP6NXFZssNOn9Z9jOpQ+tSruzk/rFSH1GDsvaUsLiZJJ86l9H/C/4UzeIPFtgNTtyNF0to9R1IMCI51gkVrWyOB/y9XAUOFIPkRz9MV9S/GXW7vSvCFxpOl5GqeIUl0yJ4uPsunugXUbkDI2t5DfZYMnKyTg5Plmo/gz4ZufCPgKyudfk8vWtUhGua40zH/QfMgMkFm7sQU/s6ywLjJ4uGuW44C/n/8AE743ah4x8aarqmnzSpokEn9n6HGrvj+zLNmSC5ZQMeZfv5t7IR/DNGucIqrOBwOY+IPGVeUHSr5bw04pVeSX1WrONZ+z5Vd80sXXhOqmrJ4aguZK8U9sfmGT+Fnh9Qo1Y1sJnXGKqN0YyhDG4ejVoU41Xr8EMBh6tOlKOnLisS4wvyuUex0L4a6vrmradpNvC0f2y4igabGUtYBzPO4I+7bwK8nQhiFXqefvnVrqw+Hngpl0u2zFounQ6fo9mCS0t0IvJso2/vGSf9/c+o81mxyK8I/Ze0TU7vw9d+P9ZaUtrTS2egxy7mKaVaylLm+Ct1N9exmKFhndb2vmDCzYrxz9pL4zzXHjQ+EtDuSNO8LAw6k8UhCXOvzIrXMe5eHGnQulnjnFy9z3QUZrhcy444xp8MU6tOvhMilUnjp01P6tGrSVP61za+9KNW2CptaKp7Xl0cnJZDjcl8OfD+XGFWjUwWY8VewoZZRryg8W6VWNerg2rr+GqEKuZVE0rU40uePtHSg+EvfD+tX17cXNxHPeajqV5JNK2xjLd3t5M0rY4PzyzyHaAcZZVHA4/QL4eeF7P4Z+Bba0vJIoZba2n1jxBekgB7yWPz7xmJPK2sSraw4wCsCkcyV8r/szW+p+NtevPEWpBpdF8NeSsRlVHW4125Um1QbkP/HhbFryU5DCR7UH71e6fHDxNaCyi8FRXBFzq0cd5qio3zppwl3W8EhDAgXtxGXK8F4Ld8naxBjjavjszzrA8FwnGNDB1KFbH/VfehS5aUGozinZLCYbVQd489WMGlJe7fhxhcuyThrMvEaUKtTEZhh62EyeONlGNTEuVVR54tpS/wBuxyUJyspqjRqTj7rcn8e+OdavvGvivVfEd0kiC+uAlnAcD7Np1sDDYWwA6NFbKGl5+aeSVjya+uf2evAZ8OeG5fEd7Hs1XxLseIS532+jQs/2OI9Nr3khN7JnnyzbA/d48M8EfDKz8TeJLLT5I99gkn2vUyhx/oELK0kecg7rlnjtlbOV80nqCR9bfEfxAvhfwpcRWLLBfXsX9kaVHGABbhomja4iUA7VsbQM8X/TTyh3o4zzWNTC5XwbkrcY1nhoVoRSjGnhqTisPServGbf1is2r8tCF21UYeHGQ1KOOzrxB4jtVnh/rc8NOo7yqY6uqn1zExcvd5vZz+qUVT15qmmlGml8f/HfxK/jXxZPp1sEudC0CK80a1jliWa0vZ7obNallikVo7m1uW/0ExMGimtIWVgySsKKzdN0NYp0VZYo4Tlrh766WC0ht40eW5u7u6uHWK0t7W3jmury8kkVIYIpppnCIzKV9JDMOHMhwmByuvTwE1hcNGnTliadD2k0pXqVOWopNe1r+0q6e65S030+JxOT8XcU5hmWeYWtmNCpjsbVrYmGGrYlUozlyuhSj7OpCD9hhfYUlZK0YRT8v//Z"
    Public _Image3Color As String = "iVBORw0KGgoAAAANSUhEUgAAAR4AAAAQCAYAAADAtBASAAAACXBIWXMAAAsSAAALEgHS3X78AAAV80lEQVR42q2cZ5hV1dXH77m9zS0jxV5iQywJEbGBJWInr8qbRPKixFiDRhKMJRqCEqLGxIYhKEElBtTQOwPSAwKiFEHaIEVAhJGh1xlkZe29195n7XPPvXPHvB/+z5nnme+/51/WvoEAVIJDCh6thNDRPKoSIt8I5SFKiqHiRyohcSQPyfpKSOI3XZ+HClSmLg9ZUu5wHvKoStQxh/LQBNX0UA6a4/fYgzk47mAejj+QgxP25+BE1EmoU4T25eA01HdQZ+zNwplCe7JwNqoFquXuHJy7Owvn78rCBTuz8F3U93ZmoNWODFy4IwsX1WagzfYsXIzfS7Zn4NKvM3A5qi3qipoKuHJbBVy9tQJ+gGqPuvarCrgedeOWCrgJdfOXFfBD1P9sTsOtqNs2paHjxgr4EeonX6ThdtRPUf+HumNDGrqsT8HP1qXg5+vSqBTcuzYF93+eggdQv0A9uCYJD1Un4eHqFPxqdQq6r07CI6uS8BvUYysT8MSKJDy5IgFPLU/C75Yn4PefJaAn6pllCfgD6o9LE/Dsp3F4/tME/An15yVx+AvqpcVxeBn16qI4vLYwDn/9JA5/Q/X7OA5vfByDv6MGLIjBWx/FYCDqH/Oj8M/5MRiMendeDN5D/WtuFIZ+GIVhqOFzIjByThRGzY7CGNTYf0dgPGrirAhUzYzAJNQHqKmoadMjMB01Y3oYZk0Lw+ypYZiD+hA1b0oY5qM++iAMH6M+QS2cHILFqCWTQvBpVRiWVYXgs4khWIHflfhdNSEE1ULjQ/A5ai1q3bgQrB8XhC/GhmDj2CBsQm0eE4QvRwdhC36/Gu3ANvy7ZlQQvh7lSG0fGYQdIx3YKTTCgV3DHdiN2oN/78XvPtT+YQ4cQB0UGhqAQ0MdOIyqw7/rhgSgHr/wL4/eR72Hehc1iPQO6h+ogai3UG+i/o56A9UP9TfUX1F9UK+iXka9iPoz6k+o51B/RP0B9Qzq96geqKdQT6AeQ/0G1R3VDfVL1IOoB1D3ou5G3YXqguqM6oS6HfUj1G2oW1E/RN2EugF1Heoa1NWoK1FtUZehLkG1QV2IaoX6Lup81Lmoc1Bnoc5AfQd1Kupk1IkOwPH4PRbVDNUUdQwqj8qiMvj/NH5TqCQqjoqhIqgwKoQKopwABGzwKOiEETph/FuARwBIQkeCJ6/Ag0ohcNL4rahz4ZMjKfDkEDw5BE8OmiJwmqOOReAch5LgQZ14QIHnZILPaXsRPHsJPAibs/YSeBA456DOReicJ8Czi4EHv99H+LRG4FyEwLl4uwLPZRI8FdCuRoAnA1cifK7aloEfIICuEeBBXYfguWGLgs/NWwR40hI8t2yuIPCkETxpGzwbBHhScOf6tATPXai71yrw3Cfhk4SuAjzVAjwpBE8SwZOEXyNwHsHvoyuT8Dj+/TiC57eopxA+PRA+AjxPM/D0FuBZKsATl+B5YUlCgQeB8wqqjwAPqq8ETwxeR/D0/8QGz9sGPFEYNE+B5/15URc8CJwRqJEIn1GzIwieiAHPBATPRAaeKTMQPDMEeMIwk8Dz76kRCZ65XvBM1uAJw6JJBB6UBA9qxUSllRODsBrBs2ZCENYI8CBw1qE2CI0V8AnCxjEEnjEObBktwBOEbQibbQQeAZ3toxR4hHaNUNqN2jM8YKAjNVyAB6EzzAZPPYLnyJAywfNPAs/bPuB5nYHntRLg6e0Bz+9QT5YAT1cCz31lgOcWAs/NZYDnIh/wtCwFnoACz3Go5gI8jguenAAPqqIR4JHwOaodj4COgA9CB7/a7cTQ7RjHg9+Udjx1lZbr4Y6niXQ8OWiGLkc5HuV6DHi049nHHA/C5nSEj3A8Z+2xwdOyADwCOqjarAKPdD2242mHwNHguZqg035rBh1PBq4n6GjwdBDgQddzq4AOAuh/N1VI8Px4I4Fng8fxIHzuwu/dCJ97BHgQOtLxrFGO55drki54UN1XJRR4hBA4GjzS8Sy3HU/vZQI8CXhOgAeB84JwPIuV4xHgeXVRDB1PDB1PTIEHZTmeBeR4PkLwIHAGIXAGo95D6LxvgYc5HgTOOJLleBA4U0kWeKaR40HgzJuqwLPAOJ4QLBKOR4InbIFnOYFnFWr1eO14guh4guR4QgY8xvEI8Iwh8DDHI8GDwKlljkdCh9yOdDwSPAF0PAHpeAR0FHjQ7Qj4DFHwKQmewQSddxh4BHQGFAFPOY7naVRPD3ge9YDnIeZ4OHjuJPD8FPWTIo7nRtS1DDxX+ICnNQPPeeR4WnjAcxoDzwnkeJozx1NJ4Ml6wJMox/EQeKTrQdBIxyPBgzriiVrS8VRaUStD0Mmh05Ex67CCTlMJHuF4CDzkegR4TjrggudU4Xj2ZaXjOR2hc4YGD0asFgQd7XjOZ47n+ztV1Gq9Q4FHOJ5LhePZTlGrpkLCR4EnY6KWcDuW49FRC+EjwHObBI+f40m5jmc9OR4NnrUpGzzS8aSgG4FHRC0BnsdQT6zU4BFRSziepE/USijHg9CxotYib9SKQT8DnrgEz5smasXI8UQpainHM8RELe54KGrNihrwTCbwTJkZJseDUWsaRa1pkcKoNYUcj3A7Ejxhcjxhy/HoqCUdDwJHRq1xbtQSrkdGLeN4gtLxbEUAbSXX87WBD7qdEcLxBA14NHz2GfBg1BquwROQbkeBR8Wsko5nsA94dNQaUCJqvULg+QsDz7OeqKXB441av/ZxPN6odYcHPB2Z4+FRq30Jx6PBcwEDT7mOp4kAj2M7Hh21EuR4oqUcz1HW8YDrelTPo+AT/8Z1PIl6ilpCEjqVyvEcdqOWBo/ueJqhZMdzIG85HhGzThbgQeicWuB4cuR4cj6OJ6PAs6MQPJcQfETUakuO5yqUBs81rOO54as0dTxpdDyi40HHQ1FLgafCdjwSPGkEj3I8P6eopRwPA0+1AI/teBR4Egw8CeN4eiJ4nl7mdTxxdDwJ6XYEeF5cnMColaCOJwZ9EDx9F2rHQx3PghgDTxQdT8w4Hg2e9yV4Ygo8qJGzteNxO54JqKpZruNRUSsswTMTpcDDHI8Azweu4xExS0h1PGHT8SwniZilOp4gOh4OnqDpeKyoNVr1O8LxuOBR0FGOR0FnF4OO2/EEZMwSHc8BcjuHhtngabTjGehxPP3L7Hie9el4vFHrEQLPw+R4ujbgeG73AY+OWtcy8FzRQMfTGPCYjsdRjifrAU+5UStIEtAJmY5HQScmJKOW6HhUsZxiridT7zqefJ1yPKpcFo4nLx2PkHA8Vsez3+14lOPJkeMRPU+OOp4clcus49nJwCPho8pl3fFcasBDUQuBcyXqKoxapuMx4GHl8uY0gYc5nk3a8aSoXE5BZwROlw0p6njS0vHIcpk6HrtcRvBUC/CkVLmsHY8ul/Hbg6KW3fHEZdSS5fISUS4njON5hTuehdrxCPDEoT85Hrfj8YBnrnA8MRgyl3U8Gjym4yHHQ+ARrmeq6XgiBVHLdDwCPCJukeOR4PFxPMvJ8Qitlv2O0lrmdjaMU+XyxrHc8RB4RnnBE4TaESpq7RpJjsdbLkvwBEzBrF2P7njqy+l4vFHr25bLvT2Op0eZjufbgMfreNqV0fG0KAKekwJuudzcUy6X6niipcDDOh4JHlq1IrLjEeBR0JHg4Y6HwJPVjucwK5cP5yV4miJwChzPfuZ49mvHg1FrX5bAY3c8LUkKPBnT8bRC6Fyoy+XarFsum6hFq1aNAs8126jjkXErI8FjRy0bPD+2olZKOp7OwvH4gEc5HlEuJxE8KRc83PGsUuARPY92PH7gcaOWu2q9SDHLgAddT1/Z8cThdXQ7b3ziOh7R8bwtHA+C5x0etea6UWsoRixVLkc9USsCE8nxTNarlg94xKo1m6KWgI8Aj1m1JtOqJcEThqVVquPR/c7KCXbUEuXy56JcHk+Oh6KWdDxjCTzU8SjHQ6sW9Tuy4xkRlPCxHU/AlMsudFjHM8ShqOU07HgG+YCnWNR6jUUtP/D0KhG1Hikjat3JyuViUetGT7l8BYHncuZ4WpfpeE5hjqeg43EKwZMoFzzAwKPLZTmlk+uhRUs5nkoDHrlqsWJZg+cYCR4VtUS53IyKZQs8suPJqlWLzekSPHt0x6OKZblqSfBkzKT+vR1ZM6e3RugIxyPL5a/dVautWbUyplz2Oh4OHrFo3YLQ6biJdTwUtTqhOn+hVy2fcnmtAs8v1hB4eLlMq5ZyPGJOT6DjScJTyxOq4xFxS0etpUXA4+d4qFzuR1Grv4hZXsczX5fLNnhE1NLgGe1xPBN4x2OtWgge0fFMF6uWO6fPncLL5ZBxPIto0VpaVaTjGS9WLQUfUS6vHy+KZb9yWUFHOx5TLrM5Xa9aatFSch0PuR0ZswJ21CL4lD2nD/RxPP2pXO7rAc9LrON5npXLvTyOp1S5XMrxdPI4nlJzetFy2SHH45R2PLxcbqY7HuZ4sj6OJ+oHHsdTLoO64wlLuf1OzJTLLGox8GT4qlXnlsva8TQzc7oql48/6LNqWeVyDs7EiKU7nnO8UWuXx/HUZhR4RMdTqxaty/iqtY3ueGTHkzFz+vWeOb2Ddjyb0qzjYasWm9PVquWWy/eyjqer7HhSpuPpxsGzyo1aulzuQXc8ouPpReBxo5ZbLr+oV63Fak7vY+b0uLVqvWnueLTjiclF610Ejr7jGUKrliyXZ0dM1BrH73hE1CLXM4WvWrJcjrBVK2JWLVkum45Hr1o2eKTrIcdTbcBjz+na8XDwSMczRtzxqFseUS6LKV1GLX7Hw+Czl5fLbNU6LKNWgEUtp/Edjx94/Mplv1WrVyOi1oMNgMfreDp4Oh7vnH55Ax1PixKO5wQ+p7NVK1ukXNYdT6TUHQ+4jiciRceDFnjyLGpVUrnM5/Sc7Hmk2zlsz+n6loc7Hl0uu3O6WrXO3FMYtRR4MuyAUDkeecezQ0WtNrX8jiej7ngQOlfpVQvVnmKWWbW+1Hc8+oCQymXrjidFjicFd6ynchljlveOR5XLSep4UvDwatXxdPeA53FdLiN0enyWLDggFHc8zy3VB4QInsVULmvHszAu5/S+bE7vz8pl7njeMXc8UbVqfchWLSqXR+sDwtkqalnlso5aCJ3pM8KmXNaOZ+6UwgNC7XYW05TujVpqTld3PG65bINHFMyFB4Ru1Koxjsed0/UdDy+WLcdjolbAzOn1QwONdzwDy7zjealIudyLzek9fO54SoLHKT6nl3PHc3mRjuc8dsdztgaPwzoex6dcZnN6sahVak53O568fcujV60jBJ76vBW1BHzMnE6LVp76nSbG8eTlnN78IB0Q4t981ToF49Yp6HbkASFdLp+xxy6XVdTCmLXTntNbsTueNuR4DHhqMixqKfC4dzy8XE6zy2XqeDZVWFFLQKfTBn5AqB2P7niSBXO66Hi6iTm9mh0Q0uWyAI+IWk/S5XJPOiDsZR0Q0h3Pp4WOR0WtmFy1+ll3PHH7ctlataKeOT1CczqCZ46649Fz+oRZrOOZoTuesBu10PHoVcsFT4hdLos7HrVqSfDQHc9yVi6vNh2PG7XW0fFgsTldg6eG5vTtvOOhctmAR8/pw/UdD4GHDgjrmOM58t+Wy/1L3PEUm9OLgadUx3OPzwFh2XO60/DlckNRi4OnifdyWYDHccGTKHfV0nc8JmrR5fIRtWzFdbksV63KgnLZBY9atJrojoff8rA5/SQWtUSxrA8I3ScTOdPxtDQdj5rTL5CrljogVFErY6IWdzw2eNiTCX25rDsehI/1ZGKzp+PZqKJW5w3a8aTpyYTb8dxPHU/XNXa5LMDTnVYtc0C40n0ywS+Xe31mP5l4Tq5aHvAYx+M+mTBzOoJHRa2oe8czj6KWmNJ51PqQDghnF3kyQVHLPSAUjqdw1eJ3PAvkpB5iq5ae09nlchW/4wnKZxPqyUSQ5vSQ/WSClctbxzDHQ8eDquNBjQhaB4QqagVY1FKXy0KH9eXyEH1A6DT+gPCtEgeEvOMRjueFIk8mGgOe+xh4Sq5aTvE7nnb/JXiKRa1yLpfDPnc8waM+UYvN6XF9QFhPUeuIu2pV6DueOjWn61VL3fAI8HDHI8CTL3wysY86nn10QCg7HiqX9xQ+mbjA81aLOx4+p7elqKWeTKg5vf1X9h2PBk+HzWkbPBsLwWPf8XhWLXqvpRxPSl4udzNzul61lNt5YkXCWrV6UtTqxed0/VZrCb3VYuDpQ+Vy34WeA8IiUWuwdUAYg6FzY+yA0AWPt+NR5XJYHhBOnc4vlyM2eKZ63mrJA0K646kKWeBZrlctulxeM56DJySndFMuc8czxqHLZYeVy0GoHaWKZS949nrndH1AOMyNWWUdEJYLnsbO6U+zt1rFotZDRcDTxSkEz20+jsd7x9OugTseDZ6zOXgcBh6nEDx+B4Tlzum845Exy7zVon7nmyJPJjBqmVWLuR7heI45pOd0fUCYp0ei3qiVk8eDp9GidfoeWrXMW62c6XjON5fLyvG0oiNCM6d7HY9+JGo6HjdqXbdFdTw3GcdDb7WoXO5ITybcVSvlE7VSFngeYOB5aI2KWr+SzyWE40nQASGCxzge98mENacv049EddRKuOBZzBwPHRD2+zhWdNUy5bJ8MhHzPJnQdzzet1pRK2rpVWvGDF0uiyndfatVuGqFYOEkVS6L40HrrVZV0ICn2jgeWrXMHY9P1DIdjwJPjZ7TRynHs7PkqsXKZQKP2/E43/6OZ0AZUcvreHqXeCT6aImOpzFzut8Boex4nIYfiTYUtY7ll8s+dzxpp2HwqGI5bx0QhtkBodvxVBY8Ek0VmdO9B4RNKWY1l+BxDwjNk4n9WQMePaefuTdnv9Xa5T0g1G+10PHUqjm9Dd3xXOotl+mGhz+ZMI7HvE5Pu08mNqu3Wh09HY+KWumCJxP3rHVXrfv55bIAz+rC1+mPy8tlvmolTcfj3vHEqVyOwwvsjsd6JGoOCFXUUuUyRa0F7pMJAZ5B88WqpaAjDwj5qjWHr1pR945npueORzyXmOE+mSjueELuk4nJetVijqfKfjKhyuWgKZfXU89jgWe0PiB0YOsoR0KnRq5a9GTCp1zW4Nk/3H6r5X2dXj+0RNR6t4E7Hr9yuW+Rjuf5MqOW1/E8WCJqdSryVutmx79cbuiA8NwyO57/D8fj+N3xUNwyczp/JFqvfhojrS+XueNh4GlCP4uhO56Cy+UD7s9i6Ldap+/N0qrlRi171bIficpyeUeGwFNYLhfO6S54dMdzE61aHeiG51aCjnQ8m9w5vRN7q9WFv9Vaa8/pJmrp1+nV3gPChHwy8aT1VouBB4Fjv9VKGMfzsvet1sKY/bMYCzyPRDV4zCNRBR/rctl7xzMrYspl39fp0yIqak3163hC7h3PJB/w8J/FkKtWsAA8atUKecBjPxJVB4SokUHfO57d3qjFfxbDvE4nx1PuI1G/O54BZYCn1M9iNOaAsLGPRIs9mRCr1sXf4nKZO55mZc7pUfZei4HnP6Hl560W5i2lAAAAAElFTkSuQmCC"

    Public Property ModeImage As ProgressBarModeImage
        Get
            Select Case _ModeImage
                Case (ProgressBarModeImage.NoneImage)
                    _progressbarImage = Nothing
                Case (ProgressBarModeImage.Bleu)
                    _progressbarImage = CodeToImage(_ImageBleu)
                Case (ProgressBarModeImage.Bleu2)
                    _progressbarImage = CodeToImage(_ImageBleu2)
                Case (ProgressBarModeImage.Couleur3)
                    _progressbarImage = CodeToImage(_Image3Color)
            End Select
            Return _ModeImage
        End Get
        Set(value As ProgressBarModeImage)
            _ModeImage = value
            Me.Invalidate()
        End Set
    End Property

    Public Property MyFont As Font
        Get
            Return _MyFont
        End Get
        Set(value As Font)
            _MyFont = value
            Me.Invalidate()
        End Set
    End Property


    Public Property ColorText As Color
        Get
            Return _ColorText
        End Get
        Set(value As Color)
            _ColorText = value
            Me.Invalidate()
        End Set
    End Property

    Public Property BackGroudImage As Image
        Get
            Return _progressbarImage
        End Get
        Set(value As Image)
            _progressbarImage = value
            Me.Invalidate()
        End Set
    End Property

    Public Property ColorProgressbar As Color
        Get
            Return _progressbarColor
        End Get
        Set(value As Color)
            _progressbarColor = value
            Me.Invalidate()
        End Set
    End Property

    Private _progressbarImage As Image = Nothing
    Private _progressbarColor As Color
    Private _ColorText As Color
    Private _ModeImage As ProgressBarModeImage
    Private _MyFont As Font

    Sub New()
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint, True)
        Me.Size = New Size(100, 23)
        Me._progressbarColor = Color.Lime
        Me._ColorText = Color.Black
        Me._ModeImage = ProgressBarModeImage.NoneImage
        Me._MyFont = New Font("Microsoft Sans Serif", 10, FontStyle.Regular)
    End Sub

    Protected Overrides Sub OnResize(ByVal e As EventArgs)
        MyBase.OnResize(e)
        If Me.Height <> 23 Then
            Me.Height = 23
        ElseIf Me.Width < 100 Then
            Me.Width = 100
        End If
    End Sub

    Protected Overrides Sub OnPaint(e As System.Windows.Forms.PaintEventArgs)
        Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)
        If ProgressBarRenderer.IsSupported Then
            ProgressBarRenderer.DrawHorizontalBar(e.Graphics, rect)
        End If
        rect.Inflate(-1, -1)
        rect.Width = CInt((rect.Width / (Me.Maximum - Me.Minimum) * Me.Value))
        If rect.Width < 0 Then Return
        If _progressbarImage Is Nothing Then
            Using b As New SolidBrush(_progressbarColor)
                e.Graphics.FillRectangle(b, rect)
            End Using
        Else
            e.Graphics.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
            e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
            e.Graphics.DrawImage(_progressbarImage, rect, New Rectangle(0, 0, Math.Min(_progressbarImage.Width, rect.Width), Math.Min(_progressbarImage.Height, rect.Height)), GraphicsUnit.Pixel)
        End If
        Using sf As StringFormat = New StringFormat()
            sf.Alignment = StringAlignment.Center
            sf.LineAlignment = StringAlignment.Center
            e.Graphics.DrawString(Value & "%", Me._MyFont, New SolidBrush(_ColorText), Me.ClientRectangle, sf)
        End Using
    End Sub

    Public Function CodeToImage(ByVal Code As String) As Image
        Return Image.FromStream(New System.IO.MemoryStream(Convert.FromBase64String(Code)))
    End Function

    Public Enum ProgressBarModeImage
        NoneImage
        Bleu
        Bleu2
        Couleur3
    End Enum

End Class