Modern Programming

PHP Apache Virtual Host Manager for XAMPP Windows

2014-11-08T21:19:00.000-08:00

Use this code for adding virtual on your xampp windows sistem.

<?php

$vhost_file = "../apache/conf/extra/httpd-vhosts.conf";
$host_file = "c:\\windows\\system32\\/drivers\\etc\\hosts";

$template=<<<end
<virtualhost {HOST}:80>
 ServerAdmin admin@{HOST}
 DocumentRoot "{HOST-DIR}"
 ServerName {HOST}
 ServerAlias www.{HOST}
 ErrorLog "logs/{HOST}-error.log"
 CustomLog "logs/{HOST}-access.log" common
</VirtualHost>
end;

$host_konten = true;

if($_POST){
 $new = str_replace('{HOST}', $_POST['host'], $template);
 $new = str_replace('{HOST-DIR}', $_POST['host-dir'], $new);
 
 if(file_put_contents($vhost_file, "\r\n".$new,FILE_APPEND)){
  $msg = 'OK';
 }
 $sn = $_POST['host'];
 $host_add = "\r\n127.0.0.1\t$sn\r\n127.0.0.1\twww.$sn\r\n";

$host_konten = file_put_contents($host_file, "\r\n".$host_add,FILE_APPEND);
  
}

$konten = file_get_contents($vhost_file);
if(!$konten){
 echo "Error: Can't read vhost_file: $vhost_file.";
 return;
}
//echo $konten;

?>
<!DOCTYPE html>
<html>
<head>
 <title>PHP Apache Virtual Host Manager for XAMPP Windows</title>
</head>
<body style="background: rgb(249, 249, 249);color: rgb(153, 0, 186);font-family: verdana;font-size: medium;margin: 39px;">
<header>
 <h1>
PHP Apache Virtual Host Manager for XAMPP Windows</h1>
<p>
please make backup to your vhost.conf file before applying changes.</p>
</header>
<article>
 <form method="post">
 <?php

if($msg = 'OK'){
  if(!$host_konten){
   echo "<div style='color:red'>
Can't modify hosts windows file</div>
";
  }
  echo "<h2 style='color:green'>
vHost Added!.</h2>
<p>
Now restart your apache</p>
<hr>
";
 }
 //$pattern = '/^<VirtualHost\s[\*|a-zA-Z0-9]+\:[0-9]+>(.*)/i';
 $pattern_open = '/^<virtualhost\s(.*)>/i';
 $pattern_close = '/^<\/virtualhost>/i';
 $lines = explode("\r\n", $konten);
 $hosts = array();
 $pos = 0;
 $is_open = false;
 foreach ($lines as $key => $value) {
  $value = trim($value);
  if($is_open){
   if(preg_match($pattern_close, $value)){
    //$hosts[$pos]['close_tag'] = $value;
    $is_open = false;
    $pos++;
   }else{
    $v = explode(" ", $value);
    $hosts[$pos][$v[0]] = $v[1];
   }
  }elseif(preg_match($pattern_open, $value)){
   $is_open = true;
   $hosts[$pos] = array();//'open_tag' => $value);
  }
 }
 foreach ($hosts as $h) {
  echo "<h3>
$h[ServerName]</h3>
";
  echo '<div>
';
  foreach ($h as $k => $v) {
   echo "$k : $v<br/>";

}
  echo '</div>
';
 }
 
 ?>
 <hr>
 <h2>
Add New</h2>
ServerName: <input type="text" name="host" value=""><br/>
 DocumentRoot: <input type="text" name="host-dir" value="c:\xampp\htdocs\">  <br/>
 <input type="submit" value="SAVE AND WRITE!">
 </form>
</article>
<hr/>
<footer>
 © 2014 Klampok Child — <a href='http://developer-id.com/'>Developer-id.com</a>
</footer>
</body>
</html>

Best Free Video Editing Software

2012-06-11T10:13:00.001-07:00

Many programs simply don't do what the manufacturers say that they will do, and others don't provide enough - or any support.Of course, most free software does not include the same level or quality of support that you would expect to find with software that you purchase commercially.While it is true that you get what you pay for, there really are some good free video editing software available out there.

Here are the top five that we have found:

Microsoft Movie Maker

Already installed on newer computers that are running Windows XP, Movie Maker has drag and drop features to make creating and editing your movie easier. Microsoft has many add-ons for this software, and upgrades are available through the website. This is one of the best free video editing software programs available.

Apple iMovie

Apple iMovie is comparable to Windows Movie Maker, but Apple iMovie is used on the Mac operating system. Apple iMovie has many advanced features and add-ons. Unfortunately, the software is only free if you buy a new Mac system. If you want the software without buying the system, it is available for purchase separately. One of the best free video editing programs available for Mac users.

Avid FreeDV

Avid FreeDV is available for both Windows and Mac operating systems, and includes basic video and audio editing capabilities, as well as up to two streams of real-time effects. On the whole, a solid video editing program that is slightly hard to use, but very powerful once you learn its ins and outs.

Wax

Wax is a high performance and flexible free video editing software program. It started out as a college project, and has since grown. Wax is good for both home users and professionals. It can be used as a stand-alone application, or as a plug-in to other video editors. The software also features unlimited video and audio tracks with top-down compositing.

Zwei-Stein

Zwei-Stein is great free video editing software, but the user interface is very technical. It is full featured, offering many different effects. It can edit up to 256 video, audio, and still image clips. There are up to 64 effects, which can be chained serially. An interesting program that's worth looking at.

Visual Studio Shortcut Keyboard List

2012-06-09T23:50:00.002-07:00

Navigation

Ctrl + ]	Moves the cursor to the matching Closing or Opening brace
Ctrl + hyphen	Moves cursor to its previous position
Shift + F7	Switch between the Design View and Source View
Ctrl + Tab	Displays the all open files in VS
Ctrl + Shift + F	Find
F3	Search Again or continue search

Editing

Ctrl + k + c	Comment a selected line or all selected lines of code
Ctrl + k + u	Uncomment a selected line or all selected lines of code
Ctrl + x, Ctrl + c, Ctrl + v	Cut, Copy, Paste

Code Related

Ctrl +SpaceBar	Complete word if exist
Tab (Twice)	Inserts Code snippet, eg type while and press Tab twice, or type prop and press Tab twice
Ctrl + Period (.)	Shows SmartTag menu
F5	Start or run the application
F6 or Ctrl + Shift + B	Build the solution
F9	Insert or remove breakpoint
Ctrl + S	Save
Ctrl + Alt + L	Open Solution Explorer

Thank's for reading

CSharp ExecuteNonQuery Sample

2012-06-09T23:49:00.000-07:00

protected void btnSignIn_Click(object sender, EventArgs e)
    {
        string strConnection = ConfigurationManager.ConnectionStrings["ConnectionString"].ConnectionString;
        string strInsert = "INSERT INTO Users (Username,Password) VALUES(@Username,@Password)";
        SqlConnection con = new SqlConnection(strConnection);
        SqlCommand cmd = new SqlCommand();
        cmd.Connection = con;
        cmd.CommandType = CommandType.Text;
        cmd.CommandText = strInsert;

        SqlParameter username = new SqlParameter("@Username", SqlDbType.VarChar, 50);
        username.Value = txtUserName.Text.Trim().ToString();
        cmd.Parameters.Add(username);

        SqlParameter password = new SqlParameter("@Password", SqlDbType.VarChar, 50);
        password.Value = txtPassword.Text.Trim().ToString();
        cmd.Parameters.Add(password);

        con.Open();
        int result = cmd.ExecuteNonQuery();
       
        con.Close();
    }

3D Max Shortcut Keyboard List

2012-06-09T23:43:00.002-07:00

3D Studio Max Keyboard shortcuts.

Snaps Action Table :
Snap To Edge/Segment Toggle : Alt+F10
Snap To Endpoint Toggle : Alt+F8
Snap To Face Toggle : Alt+F11
Snap To Grid Points Toggle : Alt+F5
Snap To Midpoint Toggle : Alt+F9
Snap To Pivot Toggle : Alt+F6
Snap To Vertex Toggle : Alt+F7

Main UI :

Adaptive Degradation Toggle : O
Align : Alt+A
Angle Snap Toggle : A
Arc Rotate View Mode : Ctrl+R
Auto Key Mode Toggle : N
Background Lock Toggle : Alt+Ctrl+B
Backup Time One Unit : ,
Bottom View : B
Camera View : C
Clone : Ctrl+V
Cycle Active Snap Type : Alt+S
Cycle Selection Method : Ctrl+F
Cycle Snap Hit : Alt+Shift+S
Default Lighting Toggle : Ctrl+L
Delete Objects : .
Disable Viewport : D
Display as See-Through Toggle : Alt+X
Environment Dialog Toggle : 8
Expert Mode Toggle : Ctrl+X
Fetch : Alt+Ctrl+F
Forward Time One Unit : .
Front View : F
Go to End Frame : End
Go to Start Frame : Home
Hide Cameras Toggle : Shift+C
Hide Geometry Toggle : Shift+G
Hide Grids Toggle : G
Hide Helpers Toggle : Shift+H
Hide Lights Toggle : Shift+L
Hide Particle Systems Toggle : Shift+P
Hide Shapes Toggle : Shift+S
Hide Space Warps Toggle : Shift+W
Hold : Alt+Ctrl+H
Isometric User View : U
Left View : L
Lock User Interface Toggle : Alt+0
Material Editor Toggle : M
Maximize Viewport Toggle : Alt+W
MAXScript Listener : F11
New Scene : Ctrl+N
Normal Align : Alt+N
Open File : Ctrl+O
Pan View : Ctrl+P
Pan Viewport : I
Percent Snap Toggle : Shift+Ctrl+P
Perspective User View : P
Place Highlight : Ctrl+H
Play Animation : /
Quick Align : Shift+A
Quick Render : Shift+Q
Redo Scene Operation : Ctrl+Y
Redo Viewport Operation : Shift+Y
Redraw All Views : `
Render Last : F9
Render Scene Dialog Toggle : F10
Restrict Plane Cycle : F8
Restrict to X : F5
Restrict to Y : F6
Restrict to Z : F7
Save File : Ctrl+S
Scale Cycle : Ctrl+E
Select All : Ctrl+A
Select Ancestor : PageUp
Select and Move : W
Select and Rotate : E
Select By Name : H
Select Child : PageDown
Select Children : Ctrl+PageDown
Select Invert : Ctrl+I
Select None : Ctrl+D
Selection Lock Toggle : Space
Set Key Mode : '
Set Keys : K
Shade Selected Faces Toggle : F2
Show Floating Dialogs : Ctrl+`
Show Main Toolbar Toggle : Alt+6
Show Safeframes Toggle : Shift+F
Show Selection Bracket Toggle : J
Snap To Frozen Objects Toggle : Alt+F2
Snaps Toggle : S
Snaps Use Axis Constraints Toggle : Alt+D, Alt+F3
Sound Toggle : \
Spacing Tool : Shift+I
Spot/Directional Light View : Shift+4
Sub-object Level Cycle : Insert
Sub-object Selection Toggle : Ctrl+B
Top View : T
Transform Gizmo Size Down : -
Transform Gizmo Size Up : =
Transform Gizmo Toggle : X
Transform Type-In Dialog Toggle : F12
Undo Scene Operation : Ctrl+Z
Undo Viewport Operation : Shift+Z
Update Background Image : Alt+Shift+Ctrl+B
View Edged Faces Toggle : F4
Viewport Background : Alt+B
Virtual Viewport Pan Down : NumPad 2
Virtual Viewport Pan Left : NumPad 4
Virtual Viewport Pan Right : NumPad 6
Virtual Viewport Pan Up : NumPad 8
Virtual Viewport Toggle : NumPad /
Virtual Viewport Zoom In : NumPad +
Virtual Viewport Zoom Out : NumPad -
Wireframe / Smooth+Highlights Toggle : F3
Zoom Extents All Selected : Z
Zoom Extents All : Shift+Ctrl+Z
Zoom Extents : Alt+Ctrl+Z
Zoom In 2X : Alt+Shift+Ctrl+Z
Zoom Mode : Alt+Z
Zoom Out 2X : Alt+Shift+Z
Zoom Region Mode : Ctrl+W
Zoom Viewport In : [, Ctrl+=
Zoom Viewport Out : ], Ctrl+-

Track View:

Add Keys : A
Apply Ease Curve : Ctrl+E
Apply Multiplier Curve : Ctrl+M
Assign Controller : C
Copy Controller : Ctrl+C
Expand Object Toggle : O
Expand Track Toggle : Enter, T
Filters : Q
Lock Selection : Space
Lock Tangents Toggle : L
Make Controller Unique : U
Move Highlight Down : Down Arrow
Move Highlight Up : Up Arrow
Move Keys : M
Nudge Keys Left : Left Arrow
Nudge Keys Right : Right Arrow
Pan : P
Paste Controller : Ctrl+V
Scroll Down : Ctrl+Down Arrow
Scroll Up : Ctrl+Up Arrow
Snap Frames : S
Zoom : Z
Zoom Hrizontal Extents Keys : Alt+X

CSharp Create PrintPreview Dialog

2012-06-07T23:15:00.000-07:00

this post will explaining how to use printpreviewdialog with C# to preview before printing datagridview in windows forms application.

Drag and place one printPreviewDialog control on the page, open it's property window and assign document to be previewed (printdocument1) to it's document property or assign it in code behind.

you can go to link mentioned above to know how to create printdocument.
Code:

private void btnPrint_Click(object sender, EventArgs e)
        {
            //Assign printPreviewDialog properties
            pvDialog.Document = printDocument1;
            pvDialog.PrintPreviewControl.Zoom = 1;
            pvDialog.ShowDialog();
        }

        private void printDocument1_PrintPage(object sender, System.Drawing.Printing.PrintPageEventArgs e)
        {
            Bitmap dataGridViewImage = new Bitmap(this.dataGridView1.Width, this.dataGridView1.Height);
            dataGridView1.DrawToBitmap(dataGridViewImage, new Rectangle(0, 0, this.dataGridView1.Width, this.dataGridView1.Height));
            e.Graphics.DrawImage(dataGridViewImage, 0, 0);
        }

DOWNLOAD SAMPLE PROGRAM

haarcascade porn and breast detection

2012-04-19T09:13:00.000-07:00

I have two haarcascade for nude image detection, first is for breast detection, and for porn (nude) image detection.
Haarcascade for porn image detection, accuarate just 40%-50%, still have many false detection, but you can use for detecting a nude image. created by Indonesian people.
And haarcascade for breast detection, it have 70%-80% accuration. i don't know who made it, but i got it from Hackchina source code search engine.
now you can make your OpenCV to detecting a nude image by using this haarcascades. but you need for create a skin color detection algorithm for make detection more accurate! i will share for skin color detection algorithm in the next moment.

DOWNLOAD HAARCASCADE PORN AND BREAST DETECTION

I have make an application to detecting an blocking porn content, you can see this http://spd.coolpage.biz

Netbeans Slow When starting

2012-03-11T09:56:00.001-07:00

I using : Netbeans 7.1

OS : win 7 32 Ultimate

CPU: core-i5

RAM: 2G

VGA: 4G

I dont know why my Netbeans its running slow when started, make my cursor slow too.

Then I know why, its may a Netbeans bug. Netbeans / Java have some speed problems where implementing fonts from the OS manchine.

its simple, try to restore Font & color setting in your nertbeans, then restart.. may its done..,

Java Execute Console Process and Get Output

2012-02-11T07:57:00.000-08:00

To execute process you can use ProcessBuilder, like this:

ProcessBuilder pb = new ProcessBuilder("tasklist").redirectErrorStream(true);

use redirectErrorStream to make the BufferedReader can read if error message is returned.

Now, get the Process by executing it:

Process p = pb.start();

Then make a BufferedReader that can read the console output screen:
BufferedReader br = new BufferedReader(new InputStreamReader(p.getInputStream()));

You can read the respond of console process by using while loop like this:

while((str = br.readLine()) != null){
    retVal += str;
}

Here is the complete java function:


public static String run(String cmd) {
        String retVal = "";
        try {
            ProcessBuilder pb = new ProcessBuilder(cmd).redirectErrorStream(true);
            Process p = pb.start();
            BufferedReader br = new BufferedReader(new InputStreamReader(p.getInputStream()));
            String str;
            while((str = br.readLine()) != null){
                retVal += str;
            }
        } catch (IOException ex) {
            retVal = ex.getMessage();
        }
        return retVal;
    }

DOM XPath Syntax

2011-10-25T07:49:00.000-07:00

This The Content of XML File

Selecting Nodes

XPath uses path expressions to select nodes in an XML document. The node is selected by following a path or steps. The most useful path expressions are listed below:

Expression	Description
nodename	Selects all child nodes of the named node
/	Selects from the root node
//	Selects nodes in the document from the current node that match the selection no matter where they are
.	Selects the current node
..	Selects the parent of the current node
@	Selects attributes

In the table below we have listed some path expressions and the result of the expressions:

Path Expression	Result
bookstore	Selects all the child nodes of the bookstore element
/bookstore	Selects the root element bookstoreNote: If the path starts with a slash ( / ) it always represents an absolute path to an element!
bookstore/book	Selects all book elements that are children of bookstore
//book	Selects all book elements no matter where they are in the document
bookstore//book	Selects all book elements that are descendant of the bookstore element, no matter where they are under the bookstore element
//@lang	Selects all attributes that are named lang

Predicates

Predicates are used to find a specific node or a node that contains a specific value.
Predicates are always embedded in square brackets.
In the table below we have listed some path expressions with predicates and the result of the expressions:

Path Expression	Result
/bookstore/book[1]	Selects the first book element that is the child of the bookstore element.Note: IE5 and later has implemented that [0] should be the first node, but according to the W3C standard it should have been [1]!!
/bookstore/book[last()]	Selects the last book element that is the child of the bookstore element
/bookstore/book[last()-1]	Selects the last but one book element that is the child of the bookstore element
/bookstore/book[position()<3]	Selects the first two book elements that are children of the bookstore element
//title[@lang]	Selects all the title elements that have an attribute named lang
//title[@lang='eng']	Selects all the title elements that have an attribute named lang with a value of 'eng'
/bookstore/book[price>35.00]	Selects all the book elements of the bookstore element that have a price element with a value greater than 35.00
/bookstore/book[price>35.00]/title	Selects all the title elements of the book elements of the bookstore element that have a price element with a value greater than 35.00

Selecting Unknown Nodes

XPath wildcards can be used to select unknown XML elements.

Wildcard	Description
*	Matches any element node
@*	Matches any attribute node
node()	Matches any node of any kind

In the table below we have listed some path expressions and the result of the expressions:

Path Expression	Result
/bookstore/*	Selects all the child nodes of the bookstore element
//*	Selects all elements in the document
//title[@*]	Selects all title elements which have any attribute

Selecting Several Paths

By using the | operator in an XPath expression you can select several paths.
In the table below we have listed some path expressions and the result of the expressions:

Path Expression	Result
//book/title \| //book/price	Selects all the title AND price elements of all book elements
//title \| //price	Selects all the title AND price elements in the document
/bookstore/book/title \| //price	Selects all the title elements of the book element of the bookstore element AND all the price elements in the document

Easy Way Convert HTML to XML in PHP DOMdocument

2011-09-23T22:16:00.000-07:00

You know that this tag is not valid for XML DOM Document. if you will to load content from HTML page and you need to convert it to XML this img tag will be a big trouble. Let me to fix this problem.

See this sample code and you will understand how I can do it :-)

$ret = '';

$x = new DOMDocument;

$x->loadHTML($ret);

$x->loadXML($x->saveXML());

echo $x->childNodes->item(1)->childNodes->item(0)->childNodes->item(0)->getAttribute('src');

?>

$ret is the HTML text source
this code is shown how to converting HTML to XML using PHP DOMdocument class.

HTML Escape Character Table

2011-08-14T07:42:00.000-07:00

Maybe some developer was know about HTML escape string, but, they can't remember one by one about HTML escape character.. Then, maybe this HTML escape character tables will be your HTML refference:

HTML Escape Characters
Decimal Value (&#DV;)	Escape Character	Output
0 - 031	None	Nothing
032	&sp; or &blank;	Blank
033	&excl;	!
034	"	"
035	&num;	#
036	&dollar;	$
037	&percnt;	%
038	&	&
039	'	'
040	(	(
041	)	)
042	&ast;	*
043	+	+
044	,	,
045	&hyphen; or − or &dash;	-
046	&period;	.
047	/	/
048-057 = digits 0-9
058	&colon;	:
059	&semi;	;
060	<	<
061	=	=
062	>	>
063	&quest;	?
064	&commat;	@
065 - 090 = letters A - Z
091	[	[
092	\	\
093	]	]
094	ˆ or &caret;	^
095	&lowbar;	_
096	None (grave accent/back apostrophe)	`
097 - 122 = letters a - z
123	{	{
124	\|	\|
125	}	}
126	&tilde; or &sim;	~
127	None (delete)	None
128 - 159 = unused (MS specific)
160		non-breaking space
161	¡	¡
162	¢	¢
163	£	£
164	¤	¤
165	¥	¥
166	¦ or &brkbar;	¦
167	§	§
168	¨ or &die;	¨
169	©	©
170	ª	ª
171	«	«
172	¬	¬
173	(soft hyphen)	None
174	®	®
175	¯ or &hibar;	¯
176	°	°
177	±	±
178	²	²
179	³	³
180	´	´
181	µ	µ
182	¶	¶
183	·	·
184	¸	¸
185	¹	¹
186	º	º
187	»	»
188	¼	¼
189	½ or &half;	½
190	¾	¾
191	¿	¿

Share Url HTML Code for Blogger (Social Bookmarking)

2011-08-09T15:30:00.000-07:00

Bibsonomy

http://www.bibsonomy.org/ShowBookmarkEntry?c=b&jump=yes&url=[URL]&description=[EXCERPT]

Blogmarks

http://blogmarks.net/my/new.php? title=[TEXT TITLE]&url=[URL]

Blinklist

http://www.blinklist.com/index.php?Action=Blink/addblink.php&Url=[URL]&Title=[TEXT TITLE]

Delicious

http://delicious.com/post?url=[URL]&title=[TEXT TITLE]¬es=[EXCERPT]

Design Bump

http://www.designbump.com/submit?url=[URL]&title=[TEXT TITLE]

Design Float

http://www.designfloat.com/submit.php?url=[URL]&title=[TEXT TITLE]

Design Moo

http://www.designmoo.com/submit?url=[URL]&title=[TEXT TITLE]

Digg

http://digg.com/submit?phase=2&url=[URL]&title=[TEXT TITLE]&bodytext=[EXCERPT]

Diigo

http://www.diigo.com/post?url=[URL]&title=[TEXT TITLE]

Dzone

http://www.dzone.com/links/add.html?url=[URL]&title=[TEXT TITLE]

Facebook

http://www.facebook.com/share.php?u=[URL]&t=[TEXT TITLE]

Fark

http://cgi.fark.com/cgi/fark/farkit.pl?h=[TEXT TITLE]&u=[URL]

Friendfeed

http://www.friendfeed.com/share?title=[TEXT TITLE]&link=[URL]

Folkd

http://www.folkd.com/submit/[URL]

Google Bookmarks

http://www.google.com/bookmarks/mark?op=edit&bkmk=[URL]&title=[TEXT TITLE]&annotation=[EXCERPT]

Hacker News

http://news.ycombinator.com/submitlink?u=[URL]&t=[TEXT TITLE]

HaoHao

http://www.haohaoreport.com/submit.php?url=[URL]&title=[TEXT TITLE]

Identi.ca

http://identi.ca/notice/new?status_textarea=[URL]

IndianPad

http://www.indianpad.com/submit.php?url=[URL]

Linked In

http://www.linkedin.com/shareArticle?mini=true&url=[URL]&title=[TEXT TITLE]&summary=[EXCERPT]

Live Favorites

https://favorites.live.com/quickadd.aspx?marklet=1&url=[URL]&title=[TEXT TITLE]

Mister Wong

http://www.mister-wong.com/addurl/?bm_url=[URL]&bm_description=[TEXT TITLE]

Mixx

http://www.mixx.com/submit?page_url=[URL]&title=[TEXT TITLE]

MySpace

http://www.myspace.com/Modules/PostTo/Pages/?u=[URL]&t=[TEXT TITLE]

Netvibes

http://www.netvibes.com/share?title=[TEXT TITLE]&url=[URL]

Newsvine

http://www.newsvine.com/_tools/seed&save?u=[URL]&h=[TEXT TITLE]

Ping.fm

http://ping.fm/ref/?link=[URL]&title=[TEXT TITLE]&body=[EXCERPT]

Posterous

http://posterous.com/share?linkto=[URL]&title=[TEXT TITLE]&selection=[EXCERPT]

Propeller

http://www.propeller.com/submit/?url=[URL]

Reddit

http://reddit.com/submit?url=[URL]&title=[TEXT TITLE]

Scoopeo

http://www.scoopeo.com/scoop/new?newurl=[URL]&title=[TEXT TITLE]

Simpy

http://simpy.com/simpy/LinkAdd.do? title=[TEXT TITLE]&href=[URL]

Slashdot

http://slashdot.org/bookmark.pl?title=[TEXT TITLE]&url=[URL]

SocialNews

http://www.socialnews.biz/submit?url=[URL]&title=[TEXT TITLE] ?>

Sphere

http://www.sphere.com/search?q=sphereit:[URL]&title=[TEXT TITLE]

Sphinn

http://sphinn.com/index.php?c=post&m=submit&link=[URL]

Spurl

http://www.spurl.net/spurl.php? url=[URL]&title=[TEXT TITLE]

Squidoo

http://www.squidoo.com/lensmaster/bookmark?[URL]

StumbleUpon

http://www.stumbleupon.com/submit?url=[URL]&title=[TEXT TITLE]

Technorati

http://technorati.com/faves?add=[URL]

Tipd

http://tipd.com/submit.php?url=[URL]

Tumblr

http://www.tumblr.com/share?v=3&u=[URL]&t=[TEXT TITLE]&s=[EXCERPT]

Twitter

http://twitter.com/home?status=[TEXT TITLE] - [URL]

Wink

http://www.wink.com/_/tag? url=[URL]&doctitle=[TEXT TITLE]

Yahoo Bookmarks

http://bookmarks.yahoo.com/toolbar/savebm?u=[URL]&t=[TEXT TITLE]

Yahoo Buzz

http://buzz.yahoo.com/buzz?targetUrl=[URL]&headline=[TEXT TITLE]&summary==[EXCERPT]

Are You Know About Social Bookmarking?

Social bookmarking is a method for Internet users to organize, store, manage and search for bookmarks of resources online. Unlike file sharing, the resources themselves aren't shared, merely bookmarks that reference them.

Descriptions may be added to these bookmarks in the form of metadata, so users may understand the content of the resource without first needing to download it for themselves. Such descriptions may be free text comments, votes in favour of or against its quality, or tags that collectively or collaboratively become a folksonomy. Folksonomy is also called social tagging, "the process by which many users add metadata in the form of keywords to shared content".

In a social bookmarking system, users save links to web pages that they want to remember and/or share. These bookmarks are usually public, and can be saved privately, shared only with specified people or groups, shared only inside certain networks, or another combination of public and private domains. The allowed people can usually view these bookmarks chronologically, by category or tags, or via a search engine.

Most social bookmark services encourage users to organize their bookmarks with informal tags instead of the traditional browser-based system of folders, although some services feature categories/folders or a combination of folders and tags. They also enable viewing bookmarks associated with a chosen tag, and include information about the number of users who have bookmarked them. Some social bookmarking services also draw inferences from the relationship of tags to create clusters of tags or bookmarks.

Many social bookmarking services provide web feeds for their lists of bookmarks, including lists organized by tags. This allows subscribers to become aware of new bookmarks as they are saved, shared, and tagged by other users.

As these services have matured and grown more popular, they have added extra features such as ratings and comments on bookmarks, the ability to import and export bookmarks from browsers, emailing of bookmarks, web annotation, and groups or other social network features[wikipedia.org]

Custom Form Appearance With Standard Behaviour

2011-08-02T02:14:00.000-07:00

There are several ways to Custom Paint a form, but each has their flaw.
This method starts with a standard Form that has its BorderStyle set to None.

We also create a WindowMenu class which pops up in place of the standard WindowMenu. We do this because restoring the standard WindowMenu causes the standard Window Size options to be lost and these cannot be restored without adding the sizable border which we do not want to see.

To get the standard Size and Move options we simply create GraphicsPaths that react to the mouse in the same way as the standard Non-Client form parts do. To achieve this we simply intercept and manipulate a few standard Windows messages. For this article I have not used any Interop calls, but you may get more flexible results by using SendMessage() and SetMenuItemBitmaps() rather than sending WndProc() calls and OwnerDrawing the custom WindowMenu.

The example here simply paints the defined paths in order that you can physically see how this method works, it is not meant to be pretty. You are not restricted to where the paths are placed or what shape they are, you dont even have to stick to them exactly when painting, the paths are simply there for mouse interaction.
The only real problem with this method is that if you set AutoScroll to true then Scrollbars will appear on top of the fake NonClientArea. A simple fix for this is to dock a Panel to the form (set the forms margins as appropiate) and use this as the Form Client.

You'll need to add images to your projects resources for the buttons. You can download the images that I used here...

VB net Sample:

Imports System.Drawing.Drawing2D
Imports System.Security.Permissions
Public Class Form1
  Inherits System.Windows.Forms.Form
  'Form overrides dispose to clean up the component list.
  <System.Diagnostics.DebuggerNonUserCode()> _
  Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try
    If disposing AndAlso components IsNot Nothing Then
      components.Dispose()
    End If
    Finally
    MyBase.Dispose(disposing)
    End Try
  End Sub
  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer
  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> _
  Private Sub InitializeComponent()
    Me.Panel1 = New System.Windows.Forms.Panel
    Me.SuspendLayout()
    '
    'Panel1
    '
    Me.Panel1.AutoScroll = True
    Me.Panel1.AutoScrollMinSize = New System.Drawing.Size(340, 300)
    Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
    Me.Panel1.Location = New System.Drawing.Point(7, 6)
    Me.Panel1.Margin = New System.Windows.Forms.Padding(4)
    Me.Panel1.Name = "Panel1"
    Me.Panel1.Size = New System.Drawing.Size(375, 319)
    Me.Panel1.TabIndex = 0
    '
    'Form1
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.BackColor = System.Drawing.Color.LemonChiffon
    Me.ClientSize = New System.Drawing.Size(389, 331)
    Me.Controls.Add(Me.Panel1)
    Me.DoubleBuffered = True
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Me.MinimumSize = New System.Drawing.Size(133, 62)
    Me.Name = "Form1"
    Me.Padding = New System.Windows.Forms.Padding(7, 6, 7, 6)
    Me.Text = "CustomForm"
    Me.ResumeLayout(False)
  End Sub
  Friend WithEvents Panel1 As System.Windows.Forms.Panel
  Private leftEdge, topEdge, bottomEdge, rightEdge, _
  topLeftEdge, topRightEdge, bottomLeftEdge, bottomRightEdge, _
  titleBar, closeButton, maxButton, minButton, iconButton As GraphicsPath
  Private formActive As Boolean = True
  Private ButtonTip As ToolTip
  Private SystemMenu As WindowMenu
  Public Sub New()
    ' This call is required by the Windows Form Designer.
    InitializeComponent()
    ' Add any initialization after the InitializeComponent() call.
    Me.leftEdge = New GraphicsPath()
    Me.topEdge = New GraphicsPath()
    Me.rightEdge = New GraphicsPath()
    Me.bottomEdge = New GraphicsPath()
    Me.topLeftEdge = New GraphicsPath()
    Me.topRightEdge = New GraphicsPath()
    Me.bottomLeftEdge = New GraphicsPath()
    Me.bottomRightEdge = New GraphicsPath()
    Me.titleBar = New GraphicsPath()
    Me.closeButton = New GraphicsPath()
    Me.maxButton = New GraphicsPath()
    Me.minButton = New GraphicsPath()
    Me.iconButton = New GraphicsPath()
    BuildPaths()
    Me.MaximizedBounds = Screen.GetWorkingArea(Me)
    Me.Padding = New Padding(5, titleBar.GetBounds().Height + 7, 5, 5)
    Me.SystemMenu = New WindowMenu(Me)
    AddHandler Me.SystemMenu.SystemEvent, AddressOf SystemMenu_SystemEvent
    ButtonTip = New ToolTip()
  End Sub
  Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
    Get
    Const WS_MINIMIZEBOX As Int32 = &H20000
    Dim cParams As System.Windows.Forms.CreateParams = MyBase.CreateParams
    cParams.Style = cParams.Style Or WS_MINIMIZEBOX
    Return cParams
    End Get
  End Property
  Private Sub Form1_Resize(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Resize
    If (Me.Created) Then
    BuildPaths()
    Me.Invalidate()
    Me.ButtonTip.SetToolTip(Me, "")
    End If
  End Sub
  Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    e.Graphics.FillPath(Brushes.Orange, leftEdge)
    e.Graphics.FillPath(Brushes.Orange, topEdge)
    e.Graphics.FillPath(Brushes.Orange, rightEdge)
    e.Graphics.FillPath(Brushes.Orange, bottomEdge)
    e.Graphics.FillPath(Brushes.Coral, topLeftEdge)
    e.Graphics.FillPath(Brushes.Coral, topRightEdge)
    e.Graphics.FillPath(Brushes.Coral, bottomLeftEdge)
    e.Graphics.FillPath(Brushes.Coral, bottomRightEdge)
    If (Not Me.formActive) Then
    e.Graphics.FillRectangle(Brushes.Silver, Rectangle.Round(titleBar.GetBounds()))
    End If
    Dim rc As Rectangle = Rectangle.Round(iconButton.GetBounds())
    Using bm As Bitmap = IIf(Me.TopMost, My.Resources.Pin, My.Resources.UnPin)
    bm.MakeTransparent(Color.Magenta)
    e.Graphics.DrawImage(bm, rc)
    End Using
    rc = Rectangle.Round(minButton.GetBounds())
    Using bm As Bitmap = My.Resources.Min
    bm.MakeTransparent(Color.Magenta)
    e.Graphics.DrawImage(bm, rc)
    End Using
    rc = Rectangle.Round(maxButton.GetBounds())
    Using bm As Bitmap = IIf(Me.WindowState = FormWindowState.Normal, My.Resources.Max, My.Resources.Restore)
    bm.MakeTransparent(Color.Magenta)
    e.Graphics.DrawImage(bm, rc)
    End Using
    rc = Rectangle.Round(closeButton.GetBounds())
    Using bm As Bitmap = My.Resources.Close
    bm.MakeTransparent(Color.Magenta)
    e.Graphics.DrawImage(bm, rc)
    End Using
    Using myPen As Pen = New Pen(Color.Orange, 2)
    rc = Me.DisplayRectangle
    e.Graphics.DrawLine(myPen, rc.Left, rc.Top - 2, rc.Right, rc.Top - 2)
    End Using
    Dim textRect As RectangleF = titleBar.GetBounds()
    textRect.X += iconButton.GetBounds().Width + 3
    textRect.Width = minButton.GetBounds().Left - textRect.Left
    TextRenderer.DrawText(e.Graphics, Me.Text, SystemFonts.CaptionFont, Rectangle.Round(textRect), Color.DarkGoldenrod, TextFormatFlags.EndEllipsis Or TextFormatFlags.VerticalCenter)
  End Sub
  Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
    MyBase.OnTextChanged(e)
    Me.Invalidate()
  End Sub
  Private Sub BuildPaths()
    Dim edgeSize As Int32 = SystemInformation.CaptionHeight + 2
    Dim buttonSize As Int32 = SystemFonts.CaptionFont.Height
    Dim buttonPadding As Int32 = 2
    'Left Sizing Edge
    leftEdge.Reset()
    leftEdge.AddRectangle(New Rectangle(0, edgeSize, 5, Me.Height - (edgeSize * 2)))
    'Top Sizing Edge
    topEdge.Reset()
    topEdge.AddRectangle(New Rectangle(edgeSize, 0, Me.Width - (edgeSize * 2), 5))
    'Right Sizing Edge
    rightEdge.Reset()
    rightEdge.AddRectangle(New Rectangle(Me.Width - 5, edgeSize, 5, Me.Height - (edgeSize * 2)))
    'Bottom Sizing Edge
    bottomEdge.Reset()
    bottomEdge.AddRectangle(New Rectangle(edgeSize, Me.Height - 5, Me.Width - (edgeSize * 2), 5))
    'Top-Left Sizing Edge
    topLeftEdge.Reset()
    topLeftEdge.AddRectangle(New Rectangle(0, 0, edgeSize, edgeSize))
    topLeftEdge.AddRectangle(New Rectangle(5, 5, edgeSize - 5, edgeSize - 5))
    'Top-Right Sizing Edge
    topRightEdge.Reset()
    topRightEdge.AddRectangle(New Rectangle(Me.Width - edgeSize, 0, edgeSize, edgeSize))
    topRightEdge.AddRectangle(New Rectangle(Me.Width - edgeSize, 5, edgeSize - 5, edgeSize - 5))
    'Bottom-Left Sizing Edge
    bottomLeftEdge.Reset()
    bottomLeftEdge.AddRectangle(New Rectangle(0, Me.Height - edgeSize, edgeSize, edgeSize))
    bottomLeftEdge.AddRectangle(New Rectangle(5, Me.Height - edgeSize, edgeSize - 5, edgeSize - 5))
    'Bottom-Right Sizing Edge
    bottomRightEdge.Reset()
    bottomRightEdge.AddRectangle(New Rectangle(Me.Width - edgeSize, Me.Height - edgeSize, edgeSize, edgeSize))
    bottomRightEdge.AddRectangle(New Rectangle(Me.Width - edgeSize, Me.Height - edgeSize, edgeSize - 5, edgeSize - 5))
    'Close Button
    closeButton.Reset()
    closeButton.AddRectangle(New Rectangle(Me.Width - 5 - (buttonSize + buttonPadding), 8, buttonSize, buttonSize))
    'Maximize Button
    maxButton.Reset()
    maxButton.AddRectangle(New Rectangle(Me.Width - 5 - ((buttonSize + buttonPadding) * 2), 8, buttonSize, buttonSize))
    'Minimize Button
    minButton.Reset()
    minButton.AddRectangle(New Rectangle(Me.Width - 5 - ((buttonSize + buttonPadding) * 3), 8, buttonSize, buttonSize))
    'Window Menu Button (Icon)
    iconButton.Reset()
    iconButton.AddRectangle(New Rectangle(8, 8, buttonSize, buttonSize))
    'TitleBar
    titleBar.Reset()
    titleBar.AddRectangle(New Rectangle(5, 5, Me.Width - 10, edgeSize - 5))
    'Remove Titlebar Buttons from TitleBar Path
    titleBar.AddPath(closeButton, False)
    titleBar.AddPath(maxButton, False)
    titleBar.AddPath(minButton, False)
    titleBar.AddPath(iconButton, False)
  End Sub
  <PermissionSet(SecurityAction.Demand, Name:="FullTrust")> _
  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    If (Me.WindowState = FormWindowState.Maximized) Then
    If (m.Msg = User32.WM_SYSCOMMAND AndAlso _
        m.WParam.ToInt32() = User32.SysCommand.SC_MOVE OrElse _
        m.Msg = User32.NCMouseMessage.WM_NCLBUTTONDOWN AndAlso _
        m.WParam.ToInt32() = User32.NCHitTestResult.HTCAPTION) Then
      m.Msg = User32.WM_NULL
    End If
    End If
    MyBase.WndProc(m)
    Select Case (m.Msg)
    Case User32.WM_GETSYSMENU
      Me.SystemMenu.Show(Me, Me.PointToClient(New Point(m.LParam.ToInt32())))
    Case User32.WM_NCACTIVATE
      Me.formActive = m.WParam.ToInt32() <> 0
      Me.Invalidate()
    Case User32.WM_NCHITTEST
      m.Result = OnNonClientHitTest(m.LParam)
    Case User32.NCMouseMessage.WM_NCLBUTTONUP
      OnNonClientLButtonUp(m.LParam)
    Case User32.NCMouseMessage.WM_NCRBUTTONUP
      OnNonClientRButtonUp(m.LParam)
    Case User32.NCMouseMessage.WM_NCMOUSEMOVE
      OnNonClientMouseMove(m.LParam)
    End Select
  End Sub
  Private Sub OnNonClientLButtonUp(ByVal lParam As IntPtr)
    Dim code As User32.SysCommand = User32.SysCommand.SC_DEFAULT
    Dim point As Point = Me.PointToClient(New Point(lParam.ToInt32()))
    If (Me.iconButton.IsVisible(point)) Then
    Me.TopMost = Not Me.TopMost
    Me.Invalidate()
    Else
    If (Me.closeButton.IsVisible(point)) Then
      code = User32.SysCommand.SC_CLOSE
    ElseIf (Me.maxButton.IsVisible(point)) Then
      code = IIf(Me.WindowState = FormWindowState.Normal, User32.SysCommand.SC_MAXIMIZE, User32.SysCommand.SC_RESTORE)
    ElseIf (Me.minButton.IsVisible(point)) Then
      code = User32.SysCommand.SC_MINIMIZE
    End If
    SendNCWinMessage(User32.WM_SYSCOMMAND, New IntPtr(code), IntPtr.Zero)
    End If
  End Sub
  Private Sub OnNonClientRButtonUp(ByVal lParam As IntPtr)
    If (Me.titleBar.IsVisible(Me.PointToClient(New Point(lParam.ToInt32())))) Then
    SendNCWinMessage(User32.WM_GETSYSMENU, IntPtr.Zero, lParam)
    End If
  End Sub
  Private Sub OnNonClientMouseMove(ByVal lParam As IntPtr)
    Dim point As Point = Me.PointToClient(New Point(lParam.ToInt32()))
    Dim tooltip As String
    If (Me.closeButton.IsVisible(point)) Then
    tooltip = "Close"
    ElseIf (Me.maxButton.IsVisible(point)) Then
    tooltip = IIf(Me.WindowState = FormWindowState.Normal, "Maximize", "Restore")
    ElseIf (Me.minButton.IsVisible(point)) Then
    tooltip = "Minimize"
    ElseIf (Me.iconButton.IsVisible(point)) Then
    tooltip = IIf(Me.TopMost, "Un-Pin", "Pin")
    Else
    tooltip = String.Empty
    End If
    If (ButtonTip.GetToolTip(Me) <> tooltip) Then
    ButtonTip.SetToolTip(Me, tooltip)
    End If
  End Sub
  Private Function OnNonClientHitTest(ByVal lParam As IntPtr) As IntPtr
    Dim result As User32.NCHitTestResult = User32.NCHitTestResult.HTCLIENT
    Dim point As Point = Me.PointToClient(New Point(lParam.ToInt32()))
    If (Me.titleBar.IsVisible(point)) Then
    result = User32.NCHitTestResult.HTCAPTION
    End If
    If (Me.WindowState = FormWindowState.Normal) Then
    If (Me.topLeftEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTTOPLEFT
    ElseIf (Me.topEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTTOP
    ElseIf (Me.topRightEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTTOPRIGHT
    ElseIf (Me.leftEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTLEFT
    ElseIf (Me.rightEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTRIGHT
    ElseIf (Me.bottomLeftEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTBOTTOMLEFT
    ElseIf (Me.bottomEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTBOTTOM
    ElseIf (Me.bottomRightEdge.IsVisible(point)) Then
      result = User32.NCHitTestResult.HTBOTTOMRIGHT
    End If
    End If
    If (Me.closeButton.IsVisible(point)) Then
    result = User32.NCHitTestResult.HTBORDER
    ElseIf (Me.maxButton.IsVisible(point)) Then
    result = User32.NCHitTestResult.HTBORDER
    ElseIf (Me.minButton.IsVisible(point)) Then
    result = User32.NCHitTestResult.HTBORDER
    ElseIf (Me.iconButton.IsVisible(point)) Then
    result = User32.NCHitTestResult.HTBORDER
    End If
    Return New IntPtr(result)
  End Function
  Private Sub SendNCWinMessage(ByVal msg As Int32, ByVal wParam As IntPtr, ByVal lParam As IntPtr)
    Dim message As Message = message.Create(Me.Handle, msg, wParam, lParam)
    Me.WndProc(message)
  End Sub
  Protected Sub SystemMenu_SystemEvent(ByVal sender As Object, ByVal ev As WindowMenuEventArgs)
    SendNCWinMessage(User32.WM_SYSCOMMAND, New IntPtr(ev.SystemCommand), IntPtr.Zero)
  End Sub
End Class
Friend NotInheritable Class User32
  Private Sub New()
    MyBase.New()
    'Non-Instantiable class
  End Sub
  Public Enum SysCommand
    SC_SIZE = &HF000
    SC_MOVE = &HF010
    SC_MINIMIZE = &HF020
    SC_MAXIMIZE = &HF030
    SC_NEXTWINDOW = &HF040
    SC_PREVWINDOW = &HF050
    SC_CLOSE = &HF060
    SC_VSCROLL = &HF070
    SC_HSCROLL = &HF080
    SC_MOUSEMENU = &HF090
    SC_KEYMENU = &HF100
    SC_ARRANGE = &HF110
    SC_RESTORE = &HF120
    SC_TASKLIST = &HF130
    SC_SCREENSAVE = &HF140
    SC_HOTKEY = &HF150
    SC_DEFAULT = &HF160
    SC_MONITORPOWER = &HF170
    SC_CONTEXTHELP = &HF180
    SC_SEPARATOR = &HF00F
  End Enum
  Public Enum NCHitTestResult
    HTERROR = (-2)
    HTTRANSPARENT
    HTNOWHERE
    HTCLIENT
    HTCAPTION
    HTSYSMENU
    HTGROWBOX
    HTMENU
    HTHSCROLL
    HTVSCROLL
    HTMINBUTTON
    HTMAXBUTTON
    HTLEFT
    HTRIGHT
    HTTOP
    HTTOPLEFT
    HTTOPRIGHT
    HTBOTTOM
    HTBOTTOMLEFT
    HTBOTTOMRIGHT
    HTBORDER
    HTOBJECT
    HTCLOSE
    HTHELP
  End Enum
  Public Enum NCMouseMessage
    WM_NCMOUSEMOVE = &HA0
    WM_NCLBUTTONDOWN = &HA1
    WM_NCLBUTTONUP = &HA2
    WM_NCLBUTTONDBLCLK = &HA3
    WM_NCRBUTTONDOWN = &HA4
    WM_NCRBUTTONUP = &HA5
    WM_NCRBUTTONDBLCLK = &HA6
    WM_NCMBUTTONDOWN = &HA7
    WM_NCMBUTTONUP = &HA8
    WM_NCMBUTTONDBLCLK = &HA9
    WM_NCXBUTTONDOWN = &HAB
    WM_NCXBUTTONUP = &HAC
    WM_NCXBUTTONDBLCLK = &HAD
  End Enum
  Public Const WM_NULL As Int32 = &H0
  Public Const WM_NCHITTEST As Int32 = &H84
  Public Const WM_NCACTIVATE As Int32 = &H86
  Public Const WM_SYSCOMMAND As Int32 = &H112
  Public Const WM_ENTERMENULOOP As Int32 = &H211
  Public Const WM_EXITMENULOOP As Int32 = &H212
  '********** Undocumented message **********
  Public Const WM_GETSYSMENU As Int32 = &H313
  '*****************************************
  Public Shared Function MakeLParam(ByVal LoWord As Int32, ByVal HiWord As Int32) As IntPtr
    Return New IntPtr((HiWord << 16) Or (LoWord And &HFFFF))
  End Function
End Class
Friend NotInheritable Class WindowMenu
  Inherits ContextMenu
  Private Owner As Form
  Private menuRestore, menuMove, menuSize, menuMin, menuMax, menuSep, menuClose As MenuItem
  Public Event SystemEvent As WindowMenuEventHandler
  Public Sub New(ByVal owner As Form)
    MyBase.New()
    Me.Owner = owner
    menuRestore = CreateMenuItem("Restore")
    menuMove = CreateMenuItem("Move")
    menuSize = CreateMenuItem("Size")
    menuMin = CreateMenuItem("Minimize")
    menuMax = CreateMenuItem("Maximize")
    menuSep = CreateMenuItem("-")
    menuClose = CreateMenuItem("Close", Shortcut.AltF4)
    Me.MenuItems.AddRange(New MenuItem() {menuRestore, menuMove, menuSize, menuMin, menuMax, menuSep, menuClose})
    menuClose.DefaultItem = True
  End Sub
  Protected Overrides Sub OnPopup(ByVal e As EventArgs)
    Select Case Owner.WindowState
    Case FormWindowState.Normal
      menuRestore.Enabled = False
      menuMax.Enabled = True
      menuMin.Enabled = True
      menuMove.Enabled = True
      menuSize.Enabled = True
    Case FormWindowState.Minimized
      menuRestore.Enabled = True
      menuMax.Enabled = True
      menuMin.Enabled = False
      menuMove.Enabled = False
      menuSize.Enabled = False
    Case FormWindowState.Maximized
      menuRestore.Enabled = True
      menuMax.Enabled = False
      menuMin.Enabled = True
      menuMove.Enabled = False
      menuSize.Enabled = False
    End Select
    MyBase.OnPopup(e)
  End Sub
  Private Sub OnWindowMenuClick(ByVal sender As Object, ByVal e As EventArgs)
    Select Case Me.MenuItems.IndexOf(DirectCast(sender, MenuItem))
    Case 0
      SendSysCommand(User32.SysCommand.SC_RESTORE)
    Case 1
      SendSysCommand(User32.SysCommand.SC_MOVE)
    Case 2
      SendSysCommand(User32.SysCommand.SC_SIZE)
    Case 3
      SendSysCommand(User32.SysCommand.SC_MINIMIZE)
    Case 4
      SendSysCommand(User32.SysCommand.SC_MAXIMIZE)
    Case 6
      SendSysCommand(User32.SysCommand.SC_CLOSE)
    End Select
  End Sub
  Private Function CreateMenuItem(ByVal text As String) As MenuItem
    Return CreateMenuItem(text, Shortcut.None)
  End Function
  Private Function CreateMenuItem(ByVal text As String, ByVal shortcut As Shortcut) As MenuItem
    Dim item As MenuItem = New MenuItem(text, AddressOf OnWindowMenuClick, shortcut)
    item.OwnerDraw = True
    AddHandler item.MeasureItem, AddressOf item_MeasureItem
    AddHandler item.DrawItem, AddressOf item_DrawItem
    Return item
  End Function
  Private Sub item_MeasureItem(ByVal sender As Object, ByVal e As MeasureItemEventArgs)
    Dim item As MenuItem = Me.MenuItems(e.Index)
    Dim itemText As String = item.Text
    itemText += "/tAlt+F4"
    Dim itemSize As Size = TextRenderer.MeasureText(itemText, SystemFonts.MenuFont)
    e.ItemHeight = IIf(e.Index = 5, 8, itemSize.Height + 7)
    e.ItemWidth = itemSize.Width + itemSize.Height + 23
  End Sub
  Private Sub item_DrawItem(ByVal sender As Object, ByVal e As DrawItemEventArgs)
    Dim item As MenuItem = Me.MenuItems(e.Index)
    If item.Enabled Then
    e.DrawBackground()
    Else
    e.Graphics.FillRectangle(SystemBrushes.Menu, e.Bounds)
    End If
    If e.Index = 5 Then
    e.Graphics.DrawLine(SystemPens.GrayText, e.Bounds.Left + 2, e.Bounds.Top + 3, e.Bounds.Right - 2, e.Bounds.Top + 3)
    Else
    Dim format As TextFormatFlags = TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter Or TextFormatFlags.NoPadding
    Dim textColor As Color = IIf(item.Enabled, SystemColors.MenuText, SystemColors.GrayText)
    Using marlettFont As New Font("Marlett", 10)
      Dim GlyphRect As Rectangle = e.Bounds
      GlyphRect.Width = GlyphRect.Height
      If item Is menuRestore Then
        TextRenderer.DrawText(e.Graphics, "2", marlettFont, GlyphRect, textColor, format)
      ElseIf item Is menuMin Then
        TextRenderer.DrawText(e.Graphics, "0", marlettFont, GlyphRect, textColor, format)
      ElseIf item Is menuMax Then
        TextRenderer.DrawText(e.Graphics, "1", marlettFont, GlyphRect, textColor, format)
      ElseIf item Is menuClose Then
        TextRenderer.DrawText(e.Graphics, "r", marlettFont, GlyphRect, textColor, format)
      End If
    End Using
    format = format And (TextFormatFlags.Left Or Not TextFormatFlags.HorizontalCenter)
    Dim textRect As Rectangle = New Rectangle(e.Bounds.Left + e.Bounds.Height + 3, e.Bounds.Top, e.Bounds.Width - e.Bounds.Height - 3, e.Bounds.Height)
    TextRenderer.DrawText(e.Graphics, item.Text, SystemFonts.MenuFont, textRect, textColor, format)
    If (item Is menuClose) Then
      Dim shortcut As String = "Alt+F4"
      Dim shortcutSize As Size = TextRenderer.MeasureText(shortcut, SystemFonts.MenuFont)
      textRect.X = textRect.Right - shortcutSize.Width - 13
      TextRenderer.DrawText(e.Graphics, shortcut, SystemFonts.MenuFont, textRect, textColor, format)
    End If
    End If
  End Sub
  Private Sub SendSysCommand(ByVal command As User32.SysCommand)
    Dim ev As WindowMenuEventArgs = New WindowMenuEventArgs(DirectCast(command, Int32))
    RaiseEvent SystemEvent(Me, ev)
  End Sub
End Class
Public Class WindowMenuEventArgs
  Inherits EventArgs
  Private sysCommand As Int32
  Public ReadOnly Property SystemCommand() As Int32
    Get
    Return Me.sysCommand
    End Get
  End Property
  Public Sub New(ByVal command As Int32)
    MyBase.new()
    Me.sysCommand = command
  End Sub
End Class
Public Delegate Sub WindowMenuEventHandler(ByVal sender As Object, ByVal ev As WindowMenuEventArgs)

CSharp Sample:

using System;
using System.Drawing;
using System.Windows.Forms;
using System.Drawing.Drawing2D;
using CustomForm.Properties;
using System.Security.Permissions;
namespace CustomForm
{
  public class Form1 : Form
  {
    /// <summary>
    /// Required designer variable.
    /// </summary>
    private System.ComponentModel.IContainer components = null;
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    /// <param name="disposing">true if managed resources should be disposed; otherwise, false.</param>
    protected override void Dispose(bool disposing)
    {
    if (disposing && (components != null))
    {
      components.Dispose();
    }
    base.Dispose(disposing);
    }
    #region Windows Form Designer generated code
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    private void InitializeComponent()
    {
    System.ComponentModel.ComponentResourceManager resources = new System.ComponentModel.ComponentResourceManager(typeof(Form1));
    this.panel1 = new System.Windows.Forms.Panel();
    this.SuspendLayout();
    // 
    // panel1
    // 
    this.panel1.AutoScroll = true;
    this.panel1.AutoScrollMinSize = new System.Drawing.Size(340, 300);
    this.panel1.Dock = System.Windows.Forms.DockStyle.Fill;
    this.panel1.Location = new System.Drawing.Point(7, 6);
    this.panel1.Margin = new System.Windows.Forms.Padding(4, 4, 4, 4);
    this.panel1.Name = "panel1";
    this.panel1.Size = new System.Drawing.Size(375, 319);
    this.panel1.TabIndex = 0;
    // 
    // Form1
    // 
    this.AutoScaleDimensions = new System.Drawing.SizeF(8F, 16F);
    this.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font;
    this.BackColor = System.Drawing.Color.LemonChiffon;
    this.ClientSize = new System.Drawing.Size(389, 331);
    this.Controls.Add(this.panel1);
    this.DoubleBuffered = true;
    this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
    this.Icon = ((System.Drawing.Icon)(resources.GetObject("$this.Icon")));
    this.Margin = new System.Windows.Forms.Padding(4, 4, 4, 4);
    this.MinimumSize = new System.Drawing.Size(133, 62);
    this.Name = "Form1";
    this.Padding = new System.Windows.Forms.Padding(7, 6, 7, 6);
    this.Text = "CustomForm";
    this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
    this.Resize += new System.EventHandler(this.Form1_Resize);
    this.ResumeLayout(false);
    }
    #endregion
    private System.Windows.Forms.Panel panel1;
    private GraphicsPath leftEdge, topEdge ,bottomEdge, rightEdge,
    topLeftEdge, topRightEdge, bottomLeftEdge, bottomRightEdge, 
    titleBar, closeButton, maxButton, minButton, iconButton;
    private bool formActive = true;
    private ToolTip ButtonTip;
    private WindowMenu SystemMenu;
    
    public Form1()
    {
    InitializeComponent();
    this.leftEdge = new GraphicsPath();
    this.topEdge = new GraphicsPath();
    this.rightEdge = new GraphicsPath();
    this.bottomEdge = new GraphicsPath();
    this.topLeftEdge = new GraphicsPath();
    this.topRightEdge = new GraphicsPath();
    this.bottomLeftEdge = new GraphicsPath();
    this.bottomRightEdge = new GraphicsPath();
    this.titleBar = new GraphicsPath();
    this.closeButton = new GraphicsPath();
    this.maxButton = new GraphicsPath();
    this.minButton = new GraphicsPath();
    this.iconButton = new GraphicsPath();
    BuildPaths();
    this.MaximizedBounds = Screen.GetWorkingArea(this);
    this.Padding = new Padding(5,(int)titleBar.GetBounds().Height+7, 5, 5);
    this.SystemMenu = new WindowMenu(this);
    this.SystemMenu.SystemEvent += new WindowMenuEventHandler(SystemMenu_SystemEvent);
    ButtonTip = new ToolTip();
    }
    protected override CreateParams CreateParams
    {
    get
    {
      const int WS_MINIMIZEBOX = 0x20000;
      System.Windows.Forms.CreateParams cParams = base.CreateParams;
      cParams.Style |= WS_MINIMIZEBOX;
      return cParams;
    }
    }
    private void Form1_Resize(object sender, EventArgs e)
    {
    if (this.Created)
    {
      BuildPaths();
      this.Invalidate();
      this.ButtonTip.SetToolTip(this, "");
    }
    }
    private void Form1_Paint(object sender, PaintEventArgs e)
    {
    e.Graphics.FillPath(Brushes.Orange, leftEdge);
    e.Graphics.FillPath(Brushes.Orange, topEdge);
    e.Graphics.FillPath(Brushes.Orange, rightEdge);
    e.Graphics.FillPath(Brushes.Orange, bottomEdge);
    e.Graphics.FillPath(Brushes.Coral, topLeftEdge);
    e.Graphics.FillPath(Brushes.Coral, topRightEdge);
    e.Graphics.FillPath(Brushes.Coral, bottomLeftEdge);
    e.Graphics.FillPath(Brushes.Coral, bottomRightEdge);
    if (!this.formActive)
    {
      e.Graphics.FillRectangle(Brushes.Silver, Rectangle.Round(titleBar.GetBounds()));
    }
    Rectangle rc = Rectangle.Round(iconButton.GetBounds());
    using (Bitmap bm = this.TopMost ? Resources.Pin : Resources.UnPin)
    {
      bm.MakeTransparent(Color.Magenta);
      e.Graphics.DrawImage(bm, rc);
    }
    rc = Rectangle.Round(minButton.GetBounds());
    using (Bitmap bm = Resources.Min)
    {
      bm.MakeTransparent(Color.Magenta);
      e.Graphics.DrawImage(bm, rc);
    }
    rc = Rectangle.Round(maxButton.GetBounds());
    using (Bitmap bm = this.WindowState == FormWindowState.Normal ? Resources.Max : Resources.Restore)
    {
      bm.MakeTransparent(Color.Magenta);
      e.Graphics.DrawImage(bm, rc);
    }
    rc = Rectangle.Round(closeButton.GetBounds());
    using (Bitmap bm = Resources.Close)
    {
      bm.MakeTransparent(Color.Magenta);
      e.Graphics.DrawImage(bm, rc);
    }

    using (Pen myPen = new Pen(Color.Orange, 2))
    {
      rc = this.DisplayRectangle;
      e.Graphics.DrawLine(myPen, rc.Left, rc.Top - 2, rc.Right, rc.Top - 2);
    }
    RectangleF textRect = titleBar.GetBounds();
    textRect.X += iconButton.GetBounds().Width + 3;
    textRect.Width = minButton.GetBounds().Left - textRect.Left;
    TextRenderer.DrawText(e.Graphics, this.Text, SystemFonts.CaptionFont, Rectangle.Round(textRect), Color.DarkGoldenrod, TextFormatFlags.EndEllipsis | TextFormatFlags.VerticalCenter);
    }
    protected override void OnTextChanged(EventArgs e)
    {
    base.OnTextChanged(e);
    this.Invalidate();
    }
    private void BuildPaths()
    {
    int edgeSize = SystemInformation.CaptionHeight + 2;
    int buttonSize = SystemFonts.CaptionFont.Height;
    int buttonPadding = 2;
    //Left Sizing Edge
    leftEdge.Reset();
    leftEdge.AddRectangle(new Rectangle(0, edgeSize, 5, this.Height - (edgeSize*2)));
    //Top Sizing Edge
    topEdge.Reset();
    topEdge.AddRectangle(new Rectangle(edgeSize, 0, this.Width - (edgeSize * 2), 5));
    //Right Sizing Edge
    rightEdge.Reset();
    rightEdge.AddRectangle(new Rectangle(this.Width - 5, edgeSize, 5, this.Height - (edgeSize * 2)));
    //Bottom Sizing Edge
    bottomEdge.Reset();
    bottomEdge.AddRectangle(new Rectangle(edgeSize, this.Height - 5, this.Width - (edgeSize * 2), 5));
    //Top-Left Sizing Edge
    topLeftEdge.Reset();
    topLeftEdge.AddRectangle(new Rectangle(0, 0, edgeSize, edgeSize));
    topLeftEdge.AddRectangle(new Rectangle(5, 5, edgeSize - 5, edgeSize - 5));
    //Top-Right Sizing Edge
    topRightEdge.Reset();
    topRightEdge.AddRectangle(new Rectangle(this.Width - edgeSize, 0, edgeSize, edgeSize));
    topRightEdge.AddRectangle(new Rectangle(this.Width - edgeSize, 5, edgeSize - 5, edgeSize - 5));
    //Bottom-Left Sizing Edge
    bottomLeftEdge.Reset();
    bottomLeftEdge.AddRectangle(new Rectangle(0, this.Height - edgeSize, edgeSize, edgeSize));
    bottomLeftEdge.AddRectangle(new Rectangle(5, this.Height - edgeSize, edgeSize - 5, edgeSize - 5));
    //Bottom-Right Sizing Edge
    bottomRightEdge.Reset();
    bottomRightEdge.AddRectangle(new Rectangle(this.Width - edgeSize, this.Height - edgeSize, edgeSize, edgeSize));
    bottomRightEdge.AddRectangle(new Rectangle(this.Width - edgeSize, this.Height - edgeSize, edgeSize - 5, edgeSize - 5));
    //Close Button
    closeButton.Reset();
    closeButton.AddRectangle(new Rectangle(this.Width - 5 - (buttonSize + buttonPadding), 8, buttonSize, buttonSize));
    //Maximize Button
    maxButton.Reset();
    maxButton.AddRectangle(new Rectangle(this.Width - 5 -((buttonSize + buttonPadding)*2), 8, buttonSize, buttonSize));
    //Minimize Button
    minButton.Reset();
    minButton.AddRectangle(new Rectangle(this.Width - 5 -((buttonSize + buttonPadding)*3), 8, buttonSize, buttonSize));
    //Window Menu Button (Icon)
    iconButton.Reset();
    iconButton.AddRectangle(new Rectangle(8, 8, buttonSize, buttonSize));
    //TitleBar
    titleBar.Reset();
    titleBar.AddRectangle(new Rectangle(5, 5, this.Width - 10, edgeSize-5));
    //Remove Titlebar Buttons from TitleBar Path
    titleBar.AddPath(closeButton, false);
    titleBar.AddPath(maxButton, false);
    titleBar.AddPath(minButton, false);
    titleBar.AddPath(iconButton, false);
    }
    [PermissionSet(SecurityAction.Demand, Name = "FullTrust")]
    protected override void WndProc(ref Message m)
    {
    if (this.WindowState == FormWindowState.Maximized)
    {
      if (m.Msg == USER32.WM_SYSCOMMAND &&
        m.WParam.ToInt32() == (int)USER32.SysCommand.SC_MOVE ||
        m.Msg == (int)USER32.NCMouseMessage.WM_NCLBUTTONDOWN &&
        m.WParam.ToInt32() == (int)USER32.NCHitTestResult.HTCAPTION)
      {
        m.Msg = USER32.WM_NULL;
      }
    }
    base.WndProc(ref m);
    switch (m.Msg)
    {
      case (int)USER32.WM_GETSYSMENU:
        this.SystemMenu.Show(this, this.PointToClient(new Point(m.LParam.ToInt32())));
        break;
      case USER32.WM_NCACTIVATE:
        this.formActive = m.WParam.ToInt32() != 0;
        this.Invalidate();
        break;
      case USER32.WM_NCHITTEST:
        m.Result = OnNonClientHitTest(m.LParam);
        break;
      case (int) USER32.NCMouseMessage.WM_NCLBUTTONUP:
        OnNonClientLButtonUp(m.LParam);
        break;
      case (int)USER32.NCMouseMessage.WM_NCRBUTTONUP:
        OnNonClientRButtonUp(m.LParam);
        break;
      case (int)USER32.NCMouseMessage.WM_NCMOUSEMOVE:
        OnNonClientMouseMove(m.LParam);
        break;
      default:
        break;
    }
    }
    private void OnNonClientLButtonUp(IntPtr lParam)
    {
    USER32.SysCommand code = USER32.SysCommand.SC_DEFAULT;
    Point point = this.PointToClient(new Point(lParam.ToInt32()));
    if (this.iconButton.IsVisible(point))
    {
      this.TopMost = !this.TopMost;
      this.Invalidate();
    }
    else
    {
      if (this.closeButton.IsVisible(point))
        code = USER32.SysCommand.SC_CLOSE;
      else if (this.maxButton.IsVisible(point))
        code = this.WindowState == FormWindowState.Normal ? USER32.SysCommand.SC_MAXIMIZE : USER32.SysCommand.SC_RESTORE;
      else if (this.minButton.IsVisible(point))
        code = USER32.SysCommand.SC_MINIMIZE;
      SendNCWinMessage(USER32.WM_SYSCOMMAND, (IntPtr)code, IntPtr.Zero);
    }
    }
    private void OnNonClientRButtonUp(IntPtr lParam)
    {
    if (this.titleBar.IsVisible(this.PointToClient(new Point(lParam.ToInt32()))))
      SendNCWinMessage(USER32.WM_GETSYSMENU, IntPtr.Zero, lParam);
    }
    private void OnNonClientMouseMove(IntPtr lParam)
    {
    Point point = this.PointToClient(new Point(lParam.ToInt32()));
    String tooltip;
    if (this.closeButton.IsVisible(point))
      tooltip = "Close";
    else if (this.maxButton.IsVisible(point))
      tooltip = this.WindowState == FormWindowState.Normal ? "Maximize" : "Restore";
    else if (this.minButton.IsVisible(point))
      tooltip = "Minimize";
    else if (this.iconButton.IsVisible(point))
      tooltip = this.TopMost ? "Un-Pin" : "Pin";
    else
      tooltip = string.Empty;
    if (ButtonTip.GetToolTip(this) != tooltip)
      ButtonTip.SetToolTip(this, tooltip);
    }
    private IntPtr OnNonClientHitTest(IntPtr lParam)
    {
    USER32.NCHitTestResult result = USER32.NCHitTestResult.HTCLIENT;
    Point point = this.PointToClient(new Point(lParam.ToInt32()));
    if (this.titleBar.IsVisible(point))
    {
      result = USER32.NCHitTestResult.HTCAPTION;
    }
    if (this.WindowState == FormWindowState.Normal)
    {
      if (this.topLeftEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTTOPLEFT;
      else if (this.topEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTTOP;
      else if (this.topRightEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTTOPRIGHT;
      else if (this.leftEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTLEFT;
      else if (this.rightEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTRIGHT;
      else if (this.bottomLeftEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTBOTTOMLEFT;
      else if (this.bottomEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTBOTTOM;
      else if (this.bottomRightEdge.IsVisible(point))
        result = USER32.NCHitTestResult.HTBOTTOMRIGHT;
    }
    if (this.closeButton.IsVisible(point))
      result = USER32.NCHitTestResult.HTBORDER;
    else if (this.maxButton.IsVisible(point))
      result = USER32.NCHitTestResult.HTBORDER;
    else if (this.minButton.IsVisible(point))
      result = USER32.NCHitTestResult.HTBORDER;
    else if (this.iconButton.IsVisible(point))
      result = USER32.NCHitTestResult.HTBORDER;
    return (IntPtr)result;
    }
    private void SendNCWinMessage(int msg, IntPtr wParam, IntPtr lParam)
    {
    Message message = Message.Create(this.Handle, msg, wParam, lParam);
    this.WndProc(ref message);
    }
    protected void SystemMenu_SystemEvent(object sender, WindowMenuEventArgs ev)
    {
    SendNCWinMessage(USER32.WM_SYSCOMMAND, (IntPtr)ev.SystemCommand, IntPtr.Zero);
    }
  }
  internal sealed class USER32
  {
    private USER32()
    : base()
    {
    //Non-Instantiable class
    }
    public enum SysCommand
    {
    SC_SIZE = 0xF000,
    SC_MOVE = 0xF010,
    SC_MINIMIZE = 0xF020,
    SC_MAXIMIZE = 0xF030,
    SC_NEXTWINDOW = 0xF040,
    SC_PREVWINDOW = 0xF050,
    SC_CLOSE = 0xF060,
    SC_VSCROLL = 0xF070,
    SC_HSCROLL = 0xF080,
    SC_MOUSEMENU = 0xF090,
    SC_KEYMENU = 0xF100,
    SC_ARRANGE = 0xF110,
    SC_RESTORE = 0xF120,
    SC_TASKLIST = 0xF130,
    SC_SCREENSAVE = 0xF140,
    SC_HOTKEY = 0xF150,
    SC_DEFAULT = 0xF160,
    SC_MONITORPOWER = 0xF170,
    SC_CONTEXTHELP = 0xF180,
    SC_SEPARATOR = 0xF00F
    }
    public enum NCHitTestResult
    {
    HTERROR = (-2),
    HTTRANSPARENT,
    HTNOWHERE,
    HTCLIENT,
    HTCAPTION,
    HTSYSMENU,
    HTGROWBOX,
    HTMENU,
    HTHSCROLL,
    HTVSCROLL,
    HTMINBUTTON,
    HTMAXBUTTON,
    HTLEFT,
    HTRIGHT,
    HTTOP,
    HTTOPLEFT,
    HTTOPRIGHT,
    HTBOTTOM,
    HTBOTTOMLEFT,
    HTBOTTOMRIGHT,
    HTBORDER,
    HTOBJECT,
    HTCLOSE,
    HTHELP
    }
    public enum NCMouseMessage
    {
    WM_NCMOUSEMOVE = 0xA0,
    WM_NCLBUTTONDOWN = 0xA1,
    WM_NCLBUTTONUP = 0xA2,
    WM_NCLBUTTONDBLCLK = 0xA3,
    WM_NCRBUTTONDOWN = 0xA4,
    WM_NCRBUTTONUP = 0xA5,
    WM_NCRBUTTONDBLCLK = 0xA6,
    WM_NCMBUTTONDOWN = 0xA7,
    WM_NCMBUTTONUP = 0xA8,
    WM_NCMBUTTONDBLCLK = 0xA9,
    WM_NCXBUTTONDOWN = 0xAB,
    WM_NCXBUTTONUP = 0xAC,
    WM_NCXBUTTONDBLCLK = 0xAD
    }
    public const int WM_NULL = 0x0;
    public const int WM_NCHITTEST = 0x84;
    public const int WM_NCACTIVATE = 0x86;
    public const int WM_SYSCOMMAND = 0x112;
    public const int WM_ENTERMENULOOP = 0x211;
    public const int WM_EXITMENULOOP = 0x212;
    //********** Undocumented message **********
    public const int WM_GETSYSMENU = 0x313;
    //*****************************************
    public static IntPtr MakeLParam(int LoWord, int HiWord)
    {
    return (IntPtr)(((HiWord << 16) | (LoWord & 0xFFFF)));
    }
  }
  internal sealed class WindowMenu : ContextMenu
  {
    private Form Owner;
    private MenuItem menuRestore, menuMove, menuSize, menuMin, menuMax, menuSep, menuClose;
    public event WindowMenuEventHandler SystemEvent;
    public WindowMenu(Form owner)
    : base()
    {
    Owner = owner;
    menuRestore = CreateMenuItem("Restore");
    menuMove = CreateMenuItem("Move");
    menuSize = CreateMenuItem("Size");
    menuMin = CreateMenuItem("Minimize");
    menuMax = CreateMenuItem("Maximize");
    menuSep = CreateMenuItem("-");
    menuClose = CreateMenuItem("Close", Shortcut.AltF4);
    this.MenuItems.AddRange(new MenuItem[] { menuRestore, menuMove, menuSize, menuMin, menuMax, menuSep, menuClose });
    menuClose.DefaultItem = true;
    }
    protected override void OnPopup(EventArgs e)
    {
    switch (Owner.WindowState)
    {
      case FormWindowState.Normal:
        menuRestore.Enabled = false;
        menuMax.Enabled = true;
        menuMin.Enabled = true;
        menuMove.Enabled = true;
        menuSize.Enabled = true;
        break;
      case FormWindowState.Minimized:
        menuRestore.Enabled = true;
        menuMax.Enabled = true;
        menuMin.Enabled = false;
        menuMove.Enabled = false;
        menuSize.Enabled = false;
        break;
      case FormWindowState.Maximized:
        menuRestore.Enabled = true;
        menuMax.Enabled = false;
        menuMin.Enabled = true;
        menuMove.Enabled = false;
        menuSize.Enabled = false;
        break;
    }
    base.OnPopup(e);
    }
    private void OnWindowMenuClick(object sender, EventArgs e)
    {
    switch (this.MenuItems.IndexOf((MenuItem)sender))
    {
      case 0:
        SendSysCommand(USER32.SysCommand.SC_RESTORE);
        break;
      case 1:
        SendSysCommand(USER32.SysCommand.SC_MOVE);
        break;
      case 2:
        SendSysCommand(USER32.SysCommand.SC_SIZE);
        break;
      case 3:
        SendSysCommand(USER32.SysCommand.SC_MINIMIZE);
        break;
      case 4:
        SendSysCommand(USER32.SysCommand.SC_MAXIMIZE);
        break;
      case 6:
        SendSysCommand(USER32.SysCommand.SC_CLOSE);
        break;
    }
    }
    private MenuItem CreateMenuItem(string text)
    {
    return CreateMenuItem(text, Shortcut.None);
    }
    private MenuItem CreateMenuItem(string text, Shortcut shortcut)
    {
    MenuItem item = new MenuItem(text, OnWindowMenuClick, shortcut);
    item.OwnerDraw = true;
    item.MeasureItem += new MeasureItemEventHandler(item_MeasureItem);
    item.DrawItem += new DrawItemEventHandler(item_DrawItem);
    return item;
    }
    void item_MeasureItem(object sender, MeasureItemEventArgs e)
    {
    MenuItem item = this.MenuItems[e.Index];
    String itemText = item.Text;
    itemText += "/tAlt+F4";
    Size itemSize = TextRenderer.MeasureText(itemText, SystemFonts.MenuFont);
    e.ItemHeight = e.Index == 5 ? 8 : itemSize.Height + 7;
    e.ItemWidth = itemSize.Width + itemSize.Height + 23;
    }
    void item_DrawItem(object sender, DrawItemEventArgs e)
    {
    MenuItem item = this.MenuItems[e.Index];
    if (item.Enabled)
      e.DrawBackground();
    else
      e.Graphics.FillRectangle(SystemBrushes.Menu, e.Bounds);
    if (e.Index == 5)
      e.Graphics.DrawLine(SystemPens.GrayText, e.Bounds.Left + 2, e.Bounds.Top + 3, e.Bounds.Right - 2, e.Bounds.Top + 3);
    else
    {
      TextFormatFlags format = TextFormatFlags.HorizontalCenter | TextFormatFlags.VerticalCenter | TextFormatFlags.NoPadding;
      Color textColor = item.Enabled ? SystemColors.MenuText : SystemColors.GrayText;
      using (Font marlettFont = new Font("Marlett", 10))
      {
        Rectangle GlyphRect = e.Bounds;
        GlyphRect.Width = GlyphRect.Height;
        if (item == menuRestore)
        TextRenderer.DrawText(e.Graphics, "2", marlettFont, GlyphRect, textColor, format);
        else if (item == menuMin)
        TextRenderer.DrawText(e.Graphics, "0", marlettFont, GlyphRect, textColor, format);
        else if (item == menuMax)
        TextRenderer.DrawText(e.Graphics, "1", marlettFont, GlyphRect, textColor, format);
        else if (item == menuClose)
        TextRenderer.DrawText(e.Graphics, "r", marlettFont, GlyphRect, textColor, format);
      }
      format &= TextFormatFlags.Left | ~TextFormatFlags.HorizontalCenter;
      Rectangle textRect = new Rectangle(e.Bounds.Left + e.Bounds.Height + 3, e.Bounds.Top, e.Bounds.Width - e.Bounds.Height - 3, e.Bounds.Height);
      TextRenderer.DrawText(e.Graphics, item.Text, SystemFonts.MenuFont, textRect, textColor, format);
      if (item == menuClose)
      {
        String shortcut = "Alt+F4";
        Size shortcutSize = TextRenderer.MeasureText(shortcut, SystemFonts.MenuFont);
        textRect.X = textRect.Right - shortcutSize.Width - 13;
        TextRenderer.DrawText(e.Graphics, shortcut, SystemFonts.MenuFont, textRect, textColor, format);
      }
    }
    }
    private void SendSysCommand(USER32.SysCommand command)
    {
    if (this.SystemEvent != null)
    {
      WindowMenuEventArgs ev = new WindowMenuEventArgs((int)command);
      this.SystemEvent(this, ev);
    }
    }
  }
  public class WindowMenuEventArgs : EventArgs
  {
    private int systemCommand;
    public int SystemCommand
    {
    get { return (int)this.systemCommand; }
    }
    public WindowMenuEventArgs(int command)
    : base()
    {
    this.systemCommand = command;
    }
  }
  public delegate void WindowMenuEventHandler(object sender, WindowMenuEventArgs ev);
}

by: Mick Dohertys'

Shaped Form Resizable and Moveable

2011-07-31T10:05:00.000-07:00

This is by no means a complete solution, just an idea for creating custom shaped forms with custom Titlebars.
The form can be dragged by its fake titlebar, and if right clicked the fake Titlebar will popup the WindowMenu.
The CreateParams property has been modified to add a System Menu (with Min,Move and Close items) to a borderless form.

The Titlebar button are not controls, they are simply drawn in the fake title bar and they react to hittesting.
The MainMenu is actually labels that popup Contextmenus.
The form can be resized only by its resizegrip, but you could define regions for each of the sides and corners and allow sizing by dragging the edge. The example requires a little work to be useable, but it should give you an idea of how to achieve this solution.
With a little InterOp you can draw a standard TitleBar onto which you can place custom buttons, and this solution is much simpler than that of OwnerDrawing the NonClient Area to achieve the same effect.

VB net Sample:

Imports System.Drawing.Drawing2D
Public Class MainForm
  Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
  <System.STAThread()> _
  Public Shared Sub Main()
    Application.EnableVisualStyles()
    Application.DoEvents()
    Application.Run(New MainForm)
  End Sub
  Public Sub New()
    MyBase.New()
    'This call is required by the Windows Form Designer.
    InitializeComponent()
    'Add any initialization after the InitializeComponent() call
    setstyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.ResizeRedraw Or ControlStyles.UserPaint, True)
  End Sub
  'Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
    If Not (components Is Nothing) Then
      components.Dispose()
    End If
    End If
    MyBase.Dispose(disposing)
  End Sub
  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer
  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu
  Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  Friend WithEvents ContextMenu2 As System.Windows.Forms.ContextMenu
  Friend WithEvents MenuExit As System.Windows.Forms.MenuItem
  Friend WithEvents MenuAbout As System.Windows.Forms.MenuItem
  Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
  Friend WithEvents LabelFile As System.Windows.Forms.Label
  Friend WithEvents LabelResize As System.Windows.Forms.Label
  Friend WithEvents LabelHelp As System.Windows.Forms.Label
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
    Me.components = New System.ComponentModel.Container
    Me.ContextMenu1 = New System.Windows.Forms.ContextMenu
    Me.MenuItem1 = New System.Windows.Forms.MenuItem
    Me.MenuItem2 = New System.Windows.Forms.MenuItem
    Me.MenuExit = New System.Windows.Forms.MenuItem
    Me.ContextMenu2 = New System.Windows.Forms.ContextMenu
    Me.MenuAbout = New System.Windows.Forms.MenuItem
    Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
    Me.LabelFile = New System.Windows.Forms.Label
    Me.LabelHelp = New System.Windows.Forms.Label
    Me.LabelResize = New System.Windows.Forms.Label
    Me.SuspendLayout()
    '
    'ContextMenu1
    '
    Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuExit})
    '
    'MenuItem1
    '
    Me.MenuItem1.Index = 0
    Me.MenuItem1.Text = "MenuItem1"
    '
    'MenuItem2
    '
    Me.MenuItem2.Index = 1
    Me.MenuItem2.Text = "-"
    '
    'MenuExit
    '
    Me.MenuExit.Index = 2
    Me.MenuExit.Text = "Exit"
    '
    'ContextMenu2
    '
    Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuAbout})
    '
    'MenuAbout
    '
    Me.MenuAbout.Index = 0
    Me.MenuAbout.Text = "About"
    '
    'ToolTip1
    '
    Me.ToolTip1.ShowAlways = True
    '
    'LabelFile
    '
    Me.LabelFile.BackColor = System.Drawing.Color.Transparent
    Me.LabelFile.ForeColor = System.Drawing.SystemColors.MenuText
    Me.LabelFile.Location = New System.Drawing.Point(8, 24)
    Me.LabelFile.Name = "LabelFile"
    Me.LabelFile.Size = New System.Drawing.Size(32, 19)
    Me.LabelFile.TabIndex = 0
    Me.LabelFile.Text = "File"
    Me.LabelFile.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'LabelHelp
    '
    Me.LabelHelp.BackColor = System.Drawing.Color.Transparent
    Me.LabelHelp.ForeColor = System.Drawing.SystemColors.MenuText
    Me.LabelHelp.Location = New System.Drawing.Point(64, 24)
    Me.LabelHelp.Name = "LabelHelp"
    Me.LabelHelp.Size = New System.Drawing.Size(32, 19)
    Me.LabelHelp.TabIndex = 1
    Me.LabelHelp.Text = "Help"
    Me.LabelHelp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
    '
    'LabelResize
    '
    Me.LabelResize.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
    Me.LabelResize.AutoSize = True
    Me.LabelResize.BackColor = System.Drawing.Color.Transparent
    Me.LabelResize.Font = New System.Drawing.Font("Marlett", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(2, Byte))
    Me.LabelResize.Location = New System.Drawing.Point(272, 138)
    Me.LabelResize.Name = "LabelResize"
    Me.LabelResize.Size = New System.Drawing.Size(16, 14)
    Me.LabelResize.TabIndex = 2
    Me.LabelResize.Text = "o"
    '
    'MainForm
    '
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(288, 152)
    Me.Controls.Add(Me.LabelResize)
    Me.Controls.Add(Me.LabelHelp)
    Me.Controls.Add(Me.LabelFile)
    Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
    Me.Name = "MainForm"
    Me.Text = "Shaped Form Example"
    Me.ResumeLayout(False)
  End Sub
#End Region
  Private ReadOnly Property TitleBar() As Region
    Get
    Return New Region(New Rectangle(0, 0, Width, 26))
    End Get
  End Property
  Private ReadOnly Property CloseButton() As GraphicsPath
    Get
    Dim gp As New GraphicsPath
    gp.AddEllipse(New Rectangle(Width - 26, 3, 18, 18))
    Return gp
    End Get
  End Property
  Private ReadOnly Property MinButton() As GraphicsPath
    Get
    Dim gp As New GraphicsPath
    gp.AddEllipse(New Rectangle(Width - 49, 3, 18, 18))
    Return gp
    End Get
  End Property
  Private ReadOnly Property FormShape() As GraphicsPath
    Get
    Dim gp As GraphicsPath = New GraphicsPath
    Dim r As Rectangle = ClientRectangle
    Dim radius As Int32 = 12
    gp.AddArc(r.Left, r.Top + 24, radius, radius, 180, 90)
    gp.AddArc(r.Left + 80 - radius, r.Top + 24 - radius, radius, radius, -270, -90)
    gp.AddArc(r.Left + 80, r.Top, radius, radius, 180, 90)
    gp.AddArc(r.Right - radius, r.Top, radius, radius, 270, 90)
    gp.AddArc(r.Right - radius, r.Bottom - radius, radius, radius, 0, 90)
    gp.AddArc(r.Left, r.Bottom - radius, radius, radius, 90, 90)
    gp.CloseFigure()
    Return gp
    End Get
  End Property
  Private ClosePress As Boolean = False
  Private MinPress As Boolean = False
  Private FormDrag As Boolean = False
  Private FileActive As Boolean = False
  Private HelpActive As Boolean = False
  Private FileHot As Boolean = False
  Private HelpHot As Boolean = False
  Private Const WM_NCLBUTTONDOWN As Integer = &HA1
  Private Const HT_CAPTION As Integer = &H2
  Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
    Get
    Dim cp As CreateParams = MyBase.CreateParams
    Const WS_CLIPCHILDREN As Integer = &H2000000
    Const WS_MINIMIZEBOX As Integer = &H20000
    'Const WS_MAXIMIZEBOX As Integer = &H10000
    Const WS_SYSMENU As Integer = &H80000
    Const CS_DBLCLKS As Integer = &H8
    Const CS_DROPSHADOW As Integer = &H20000
    Dim ClassFlags As Integer = CS_DBLCLKS
    Dim OSVER As Integer = Environment.OSVersion.Version.Major * 10
    OSVER += Environment.OSVersion.Version.Minor
    If OSVER >= 51 Then ClassFlags = CS_DBLCLKS Or CS_DROPSHADOW
    cp.Style = WS_CLIPCHILDREN Or WS_MINIMIZEBOX Or WS_SYSMENU 'Or WS_MAXIMIZEBOX
    cp.ClassStyle = ClassFlags
    Return cp
    End Get
  End Property
  Private Sub MainForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.LabelFile.Location = New Point(2, 26)
    Me.LabelHelp.Location = New Point(LabelFile.Right, 26)
    Me.LabelFile.Font = SystemInformation.MenuFont
    Me.LabelHelp.Font = SystemInformation.MenuFont
    Me.Region = New Region(FormShape)
  End Sub
  Private Sub MainForm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
    e.Graphics.FillRegion(Brushes.Green, TitleBar)
    e.Graphics.FillRectangle(SystemBrushes.Menu, New Rectangle(0, 26, Width, 19))
    If FileHot Then e.Graphics.FillRectangle(SystemBrushes.Highlight, LabelFile.Bounds)
    If HelpHot Then e.Graphics.FillRectangle(SystemBrushes.Highlight, LabelHelp.Bounds)
    Dim BorderPen As New Pen(Color.Green, 2)
    BorderPen.Alignment = PenAlignment.Inset
    e.Graphics.DrawPath(BorderPen, FormShape)
    BorderPen.Dispose()
    e.Graphics.SmoothingMode = SmoothingMode.HighQuality
    Dim sf As New StringFormat(StringFormatFlags.NoWrap)
    sf.Trimming = StringTrimming.EllipsisCharacter
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Center
    e.Graphics.DrawString(Me.Text, Control.DefaultFont, Brushes.White, RectangleF.FromLTRB(84, 0, MinButton.GetBounds.X, 24), sf)
    If ClosePress Then
    e.Graphics.FillPath(Brushes.Blue, CloseButton)
    Else
    e.Graphics.FillPath(Brushes.Red, CloseButton)
    End If
    If MinPress Then
    e.Graphics.FillPath(Brushes.Red, MinButton)
    Else
    e.Graphics.FillPath(Brushes.Yellow, MinButton)
    End If
    Dim GlyphFont As New Font("marlett", Font.SizeInPoints, FontStyle.Bold, GraphicsUnit.Point)
    e.Graphics.DrawString("0", GlyphFont, Brushes.Black, MinButton.GetBounds, sf)
    e.Graphics.DrawString("r", GlyphFont, Brushes.Black, CloseButton.GetBounds, sf)
    GlyphFont.Dispose()
  End Sub
  Private Sub MainForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
    ClosePress = CloseButton.IsVisible(e.X, e.Y) AndAlso e.Button = MouseButtons.Left
    MinPress = MinButton.IsVisible(e.X, e.Y) AndAlso e.Button = MouseButtons.Left
    FormDrag = TitleBar.IsVisible(e.X, e.Y) AndAlso _
        e.Button = MouseButtons.Left AndAlso _
        ClosePress = False AndAlso MinPress = False
    If FormDrag Then
    Me.Capture = False
    WndProc(Message.Create(Handle, WM_NCLBUTTONDOWN, IntPtr.op_Explicit(HT_CAPTION), IntPtr.Zero))
    End If
    Invalidate()
  End Sub
  Private Sub MainForm_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
    Dim OverClose, OverMin As Boolean
    OverClose = CloseButton.IsVisible(e.X, e.Y)
    OverMin = MinButton.IsVisible(e.X, e.Y)
    ClosePress = OverClose AndAlso e.Button = MouseButtons.Left
    MinPress = OverMin AndAlso e.Button = MouseButtons.Left
    If OverClose AndAlso ClosePress = False Then
    ToolTip1.SetToolTip(Me, "Close")
    ElseIf OverMin AndAlso MinPress = False Then
    ToolTip1.SetToolTip(Me, "Minimize")
    Else
    ToolTip1.SetToolTip(Me, "")
    End If
    Invalidate()
  End Sub
  Private Sub MainForm_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
    Dim OverClose, OverMin As Boolean
    OverClose = CloseButton.IsVisible(e.X, e.Y)
    OverMin = MinButton.IsVisible(e.X, e.Y)
    If OverClose AndAlso ClosePress AndAlso e.Button = MouseButtons.Left Then
    Me.Close()
    End If
    If OverMin AndAlso MinPress AndAlso e.Button = MouseButtons.Left Then
    Me.WindowState = FormWindowState.Minimized
    End If
    If e.Button = MouseButtons.Right AndAlso TitleBar.IsVisible(e.X, e.Y) Then
    If OverClose = False AndAlso OverMin = False Then
      Const WM_GETSYSMENU As Integer = &H313
      If e.Button = MouseButtons.Right Then
        Dim pos As Point = Me.PointToScreen(New Point(e.X, e.Y))
        Dim hPos As IntPtr = IntPtr.op_Explicit(CInt((pos.Y * &H10000) Or (pos.X And &HFFFF&)))
        WndProc(Message.Create(Handle, WM_GETSYSMENU, IntPtr.Zero, hPos))
      End If
    End If
    End If
    ClosePress = False
    MinPress = False
    FormDrag = False
    Invalidate()
  End Sub
  Private Sub MenuAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MenuAbout.Click
    MessageBox.Show("Shaped Form Example!" & vbCrLf & "By Mick Doherty (http://dotnetrix.co.uk)", "About...", MessageBoxButtons.OK)
  End Sub
  Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click
    Application.Exit()
  End Sub
  Private Sub LabelHelp_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles LabelHelp.MouseEnter
    HelpHot = True
    LabelHelp.ForeColor = SystemColors.HighlightText
    Invalidate()
  End Sub
  Private Sub LabelHelp_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelHelp.MouseUp
    HelpActive = True
    ContextMenu2.Show(LabelHelp, New Point(0, LabelHelp.Height))
    HelpActive = False
    LabelHelp.ForeColor = SystemColors.MenuText
    Invalidate()
  End Sub
  Private Sub LabelHelp_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LabelHelp.MouseLeave
    If HelpActive = False Then
    HelpHot = False
    LabelHelp.ForeColor = SystemColors.MenuText
    End If
    Invalidate()
  End Sub
  Private Sub LabelFile_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles LabelFile.MouseEnter
    FileHot = True
    LabelFile.ForeColor = SystemColors.HighlightText
    Invalidate()
  End Sub
  Private Sub LabelFile_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelFile.MouseUp
    FileActive = True
    ContextMenu1.Show(LabelFile, New Point(0, LabelFile.Height))
    FileActive = False
    LabelFile.ForeColor = SystemColors.MenuText
    Invalidate()
  End Sub
  Private Sub LabelFile_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles LabelFile.MouseLeave
    If FileActive = False Then
    FileHot = False
    LabelFile.ForeColor = SystemColors.MenuText
    End If
    Invalidate()
  End Sub
  Private Sizing As Boolean = False
  Private SizeOffset As Point = Point.Empty
  Private Sub LabelResize_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelResize.MouseDown
    Sizing = True
    SizeOffset = New Point(Me.Right - Cursor.Position.X, Me.Bottom - Cursor.Position.Y)
  End Sub
  Private Sub LabelResize_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelResize.MouseMove
    If Sizing = True Then
    'Clip cursor to dissallow sizing of form below 250x100
    Dim ClipRectangle As Rectangle = RectangleToScreen(New Rectangle(250, 100, Width, Height))
    ClipRectangle.Offset(SizeOffset)
    Cursor.Clip = ClipRectangle
    Me.Size = New Size(Cursor.Position.X + SizeOffset.X - Location.X, Cursor.Position.Y + SizeOffset.Y - Location.Y)
    End If
  End Sub
  Private Sub LabelResize_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles LabelResize.MouseUp
    Sizing = False
    Cursor.Clip = Nothing
  End Sub
  Private Sub MainForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize
    Me.Region = New Region(FormShape)
  End Sub
End Class

CSharp Sample:

using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using System.Drawing.Drawing2D;
namespace ShapedForm
{
  /// <summary>
  /// Summary description for Form1.
  /// </summary>
  public class MainForm : System.Windows.Forms.Form
  {
    private System.ComponentModel.IContainer components;
    public MainForm()
    {
    //
    // Required for Windows Form Designer support
    //
    InitializeComponent();
    //
    // TODO: Add any constructor code after InitializeComponent call
    //
    this.SetStyle(ControlStyles.AllPaintingInWmPaint| ControlStyles.DoubleBuffer|ControlStyles.UserPaint|ControlStyles.ResizeRedraw,true);
    }
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    protected override void Dispose( bool disposing )
    {
    if( disposing )
    {
      if (components != null) 
      {
        components.Dispose();
      }
    }
    base.Dispose( disposing );
    }
    #region Windows Form Designer generated code
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    private void InitializeComponent()
    {
    this.components = new System.ComponentModel.Container();
    this.labelFile = new System.Windows.Forms.Label();
    this.labelHelp = new System.Windows.Forms.Label();
    this.toolTip1 = new System.Windows.Forms.ToolTip(this.components);
    this.contextMenu1 = new System.Windows.Forms.ContextMenu();
    this.menuItem1 = new System.Windows.Forms.MenuItem();
    this.menuItem2 = new System.Windows.Forms.MenuItem();
    this.menuExit = new System.Windows.Forms.MenuItem();
    this.contextMenu2 = new System.Windows.Forms.ContextMenu();
    this.menuAbout = new System.Windows.Forms.MenuItem();
    this.labelResize = new System.Windows.Forms.Label();
    this.SuspendLayout();
    // 
    // labelFile
    //
    this.labelFile.BackColor = System.Drawing.Color.Transparent;
    this.labelFile.ForeColor = System.Drawing.SystemColors.MenuText;
    this.labelFile.Location = new System.Drawing.Point(8, 24);
    this.labelFile.Name = "labelFile";
    this.labelFile.Size = new System.Drawing.Size(32, 19);
    this.labelFile.TabIndex = 0;
    this.labelFile.Text = "File";
    this.labelFile.TextAlign = System.Drawing.ContentAlignment.MiddleCenter;
    this.labelFile.MouseEnter += new System.EventHandler(this.labelFile_MouseEnter);
    this.labelFile.MouseUp += new System.Windows.Forms.MouseEventHandler(this.labelFile_MouseUp);
    this.labelFile.MouseLeave += new System.EventHandler(this.labelFile_MouseLeave);
    // 
    // labelHelp
    //
    this.labelHelp.BackColor = System.Drawing.Color.Transparent;
    this.labelHelp.ForeColor = System.Drawing.SystemColors.MenuText;
    this.labelHelp.Location = new System.Drawing.Point(64, 24);
    this.labelHelp.Name = "labelHelp";
    this.labelHelp.Size = new System.Drawing.Size(32, 19);
    this.labelHelp.TabIndex = 1;
    this.labelHelp.Text = "Help";
    this.labelHelp.TextAlign = System.Drawing.ContentAlignment.MiddleCenter;
    this.labelHelp.MouseEnter += new System.EventHandler(this.labelHelp_MouseEnter);
    this.labelHelp.MouseUp += new System.Windows.Forms.MouseEventHandler(this.labelHelp_MouseUp);
    this.labelHelp.MouseLeave += new System.EventHandler(this.labelHelp_MouseLeave);
    // 
    // contextMenu1
    // 
    this.contextMenu1.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] {
                               this.menuItem1,
                               this.menuItem2,
                               this.menuExit});
    // 
    // menuItem1
    //
    this.menuItem1.Index = 0;
    this.menuItem1.Text = "menuItem1";
    // 
    // menuItem2
    // 
    this.menuItem2.Index = 1;
    this.menuItem2.Text = "-";
    // 
    // menuExit
    // 
    this.menuExit.Index = 2;
    this.menuExit.Text = "Exit";
    this.menuExit.Click += new System.EventHandler(this.menuExit_Click);
    // 
    // contextMenu2
    //
    this.contextMenu2.MenuItems.AddRange(new System.Windows.Forms.MenuItem[] {
                               this.menuAbout});
    // 
    // menuAbout
    // 
    this.menuAbout.Index = 0;
    this.menuAbout.Text = "About";
    this.menuAbout.Click += new System.EventHandler(this.menuAbout_Click);
    // 
    // labelResize
    //
    this.labelResize.Anchor = ((System.Windows.Forms.AnchorStyles)((System.Windows.Forms.AnchorStyles.Bottom | System.Windows.Forms.AnchorStyles.Right)));
    this.labelResize.AutoSize = true;
    this.labelResize.BackColor = System.Drawing.Color.Transparent;
    this.labelResize.Font = new System.Drawing.Font("Marlett", 8.25F, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, ((System.Byte)(2)));
    this.labelResize.Location = new System.Drawing.Point(272, 138);
    this.labelResize.Name = "labelResize";
    this.labelResize.Size = new System.Drawing.Size(16, 14);
    this.labelResize.TabIndex = 2;
    this.labelResize.Text = "o";
    this.labelResize.MouseUp += new System.Windows.Forms.MouseEventHandler(this.labelResize_MouseUp);
    this.labelResize.MouseMove += new System.Windows.Forms.MouseEventHandler(this.labelResize_MouseMove);
    this.labelResize.MouseDown += new System.Windows.Forms.MouseEventHandler(this.labelResize_MouseDown);
     // 
    // MainForm
    //
    this.AutoScaleBaseSize = new System.Drawing.Size(5, 13);
    this.ClientSize = new System.Drawing.Size(288, 152);
    this.Controls.Add(this.labelResize);
    this.Controls.Add(this.labelHelp);
    this.Controls.Add(this.labelFile);
    this.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None;
    this.Name = "Form1";
    this.Text = "Shaped Form Example";
    this.Resize += new System.EventHandler(this.MainForm_Resize);
    this.MouseDown += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseDown);
    this.Load += new System.EventHandler(this.Form1_Load);
    this.MouseUp += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseUp);
    this.Paint += new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
    this.MouseMove += new System.Windows.Forms.MouseEventHandler(this.Form1_MouseMove);
    this.ResumeLayout(false);
    }
    #endregion
    /// <summary>
    /// The main entry point for the application.
    /// </summary>
    [STAThread]
    static void Main() 
    {
    Application.Run(new MainForm());
    }

    private Region TitleBar
    {
    get{return new Region(new Rectangle(0, 0, Width, 26));}
    }

    private GraphicsPath CloseButton
    {
    get
    {
      GraphicsPath gp = new  GraphicsPath();
      gp.AddEllipse(new Rectangle(Width - 26, 3, 18, 18));
      return gp;
    }
    }

    private GraphicsPath MinButton
    {
    get
    {
      GraphicsPath gp = new GraphicsPath();
      gp.AddEllipse(new Rectangle(Width - 49, 3, 18, 18));
      return gp;
    }
    }

    private GraphicsPath FormShape
    {
    get
    {
      GraphicsPath gp = new GraphicsPath();
      Rectangle  r = ClientRectangle;
      int radius = 12;
          
      gp.AddArc(r.Left, r.Top + 24, radius, radius, 180, 90);
      gp.AddArc(r.Left + 80 - radius, r.Top + 24 - radius, radius, radius, -270, -90);
      gp.AddArc(r.Left + 80, r.Top, radius, radius, 180, 90);
      gp.AddArc(r.Right - radius, r.Top, radius, radius, 270, 90);
      gp.AddArc(r.Right - radius, r.Bottom - radius, radius, radius, 0, 90);
      gp.AddArc(r.Left, r.Bottom - radius, radius, radius, 90, 90);
      gp.CloseFigure();
          
      return gp;
    }
    }

    private bool ClosePress = false;
    private bool MinPress = false;
    private bool FormDrag = false;
    private bool FileActive = false;
    private bool HelpActive = false;
    private bool FileHot = false;
    private bool HelpHot = false;
    private const int WM_NCLBUTTONDOWN = 0xA1;
    private System.Windows.Forms.Label labelFile;
    private System.Windows.Forms.Label labelHelp;
    private System.Windows.Forms.ToolTip toolTip1;
    private System.Windows.Forms.ContextMenu contextMenu1;
    private System.Windows.Forms.ContextMenu contextMenu2;
    private System.Windows.Forms.MenuItem menuItem1;
    private System.Windows.Forms.MenuItem menuItem2;
    private System.Windows.Forms.MenuItem menuAbout;
    private System.Windows.Forms.MenuItem menuExit;
    private System.Windows.Forms.Label labelResize;
    private const int HT_CAPTION = 0x2;
    protected override  System.Windows.Forms.CreateParams CreateParams
    {
    get
    {
      CreateParams cp = base.CreateParams;
      const int WS_CLIPCHILDREN = 0x2000000;
      const int WS_MINIMIZEBOX = 0x20000;
      //const int WS_MAXIMIZEBOX = 0x10000;
      const int WS_SYSMENU = 0x80000;
      const int CS_DBLCLKS = 0x8;
      const int CS_DROPSHADOW = 0x20000;
      
      int ClassFlags = CS_DBLCLKS;
      int OSVER = Environment.OSVersion.Version.Major * 10;
      OSVER += Environment.OSVersion.Version.Minor;
      if (OSVER >= 51) ClassFlags = CS_DBLCLKS | CS_DROPSHADOW;
      
      cp.Style = WS_CLIPCHILDREN | WS_MINIMIZEBOX | WS_SYSMENU; //| WS_MAXIMIZEBOX
      cp.ClassStyle = ClassFlags;
      
      return cp;
    }
    }

    private void Form1_Load(object sender, System.EventArgs e)
    {
    this.labelFile.Location = new Point(2, 26);
    this.labelHelp.Location = new Point(labelFile.Right, 26);
    this.labelFile.Font = SystemInformation.MenuFont;
    this.labelHelp.Font = SystemInformation.MenuFont;
    this.Region = new Region(FormShape);  
    }

    private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
    {
    e.Graphics.FillRegion(Brushes.Green, TitleBar);
    e.Graphics.FillRectangle(SystemBrushes.Menu, new Rectangle(0, 26, Width, 19));
    if (FileHot) e.Graphics.FillRectangle(SystemBrushes.Highlight, labelFile.Bounds);
    if (HelpHot) e.Graphics.FillRectangle(SystemBrushes.Highlight, labelHelp.Bounds);
    Pen BorderPen = new Pen(Color.Green, 2);
    BorderPen.Alignment = PenAlignment.Inset;
    e.Graphics.DrawPath(BorderPen, FormShape);
    BorderPen.Dispose();
    
    e.Graphics.SmoothingMode = SmoothingMode.HighQuality;
    
    StringFormat sf= new StringFormat(StringFormatFlags.NoWrap);
    sf.Trimming = StringTrimming.EllipsisCharacter;
    sf.Alignment = StringAlignment.Center;
    sf.LineAlignment = StringAlignment.Center;
    
    e.Graphics.DrawString(this.Text, Control.DefaultFont, Brushes.White, RectangleF.FromLTRB(84, 0, MinButton.GetBounds().X, 24), sf);
    
    if (ClosePress)
      e.Graphics.FillPath(Brushes.Blue, CloseButton);
    else
      e.Graphics.FillPath(Brushes.Red, CloseButton);
    
    if (MinPress)
      e.Graphics.FillPath(Brushes.Red, MinButton);
    else
      e.Graphics.FillPath(Brushes.Yellow, MinButton);
    
    Font GlyphFont = new Font("marlett", Font.SizeInPoints, FontStyle.Bold, GraphicsUnit.Point);
    e.Graphics.DrawString("0", GlyphFont, Brushes.Black, MinButton.GetBounds(), sf);
    e.Graphics.DrawString("r", GlyphFont, Brushes.Black, CloseButton.GetBounds(), sf);
    GlyphFont.Dispose();
    
    }
    
    private void Form1_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    ClosePress = CloseButton.IsVisible(e.X, e.Y) && e.Button == MouseButtons.Left;
    MinPress = MinButton.IsVisible(e.X, e.Y) && e.Button == MouseButtons.Left;
    FormDrag = TitleBar.IsVisible(e.X, e.Y) &&
    e.Button == MouseButtons.Left &&
      ClosePress == false && MinPress == false;
    if (FormDrag)
    {
    this.Capture = false;
    Message msg = Message.Create(Handle, WM_NCLBUTTONDOWN, (IntPtr)HT_CAPTION, IntPtr.Zero);
    WndProc(ref msg);
    }
    Invalidate();
    }

    private void Form1_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    bool OverClose, OverMin;
    OverClose = CloseButton.IsVisible(e.X, e.Y);
    OverMin = MinButton.IsVisible(e.X, e.Y);
    ClosePress = OverClose && e.Button == MouseButtons.Left;
    MinPress = OverMin && e.Button == MouseButtons.Left;
    
    if (OverClose && ClosePress == false)
      toolTip1.SetToolTip(this, "Close");
    else if (OverMin && MinPress == false)
      toolTip1.SetToolTip(this, "Minimize");
    else
      toolTip1.SetToolTip(this, "");
    
    Invalidate();
    }

    private void Form1_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    bool OverClose, OverMin;
    OverClose = CloseButton.IsVisible(e.X, e.Y);
    OverMin = MinButton.IsVisible(e.X, e.Y);
    
    if (OverClose && ClosePress && e.Button == MouseButtons.Left)
      this.Close();
    if (OverMin && MinPress && e.Button == MouseButtons.Left)
      this.WindowState = FormWindowState.Minimized;
    
    if (e.Button == MouseButtons.Right && TitleBar.IsVisible(e.X, e.Y))
    {
      if (OverClose == false && OverMin == false)
      {
      const int WM_GETSYSMENU = 0x313;
        if (e.Button == MouseButtons.Right)
        {
        Point pos = this.PointToScreen(new Point(e.X, e.Y));
        IntPtr hPos = (IntPtr)((int)((pos.Y * 0x10000) | (pos.X & 0xFFFF)));
        Message msg = Message.Create(this.Handle, WM_GETSYSMENU, IntPtr.Zero, hPos);
        WndProc(ref msg);
        }
      }
    }
    ClosePress = false;
    MinPress = false;
    FormDrag = false;
    Invalidate();
    }
  
    private void menuAbout_Click(object sender, System.EventArgs e)
    {
    MessageBox.Show("Shaped Form Example!\nBy Mick Doherty (http://dotnetrix.co.uk)", "About...", MessageBoxButtons.OK);
    }

    private void menuExit_Click(object sender, System.EventArgs e)
    {
    Application.Exit();
    }

    private void labelHelp_MouseEnter(object sender, System.EventArgs e)
    {
    HelpHot = true;
    labelHelp.ForeColor = SystemColors.HighlightText;
    Invalidate();
    }

    private void labelHelp_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    HelpActive = true;
    contextMenu2.Show(labelHelp, new Point(0, labelHelp.Height));
    HelpActive = false;
    labelHelp.ForeColor = SystemColors.MenuText;
    Invalidate();
    }

    private void labelHelp_MouseLeave(object sender, System.EventArgs e)
    {
    if (HelpActive == false)
    {
      HelpHot = false;
      labelHelp.ForeColor = SystemColors.MenuText;
    }
    Invalidate();
    }

    private void labelFile_MouseEnter(object sender, System.EventArgs e)
    {
    FileHot = true;
    labelFile.ForeColor = SystemColors.HighlightText;
    Invalidate();
    }

    private void labelFile_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    FileActive = true;
    contextMenu1.Show(labelFile, new Point(0, labelFile.Height));
    FileActive = false;
    labelFile.ForeColor = SystemColors.MenuText;
    Invalidate();
    }

    private void labelFile_MouseLeave(object sender, System.EventArgs e)
    {
    if (FileActive == false)
    {
      FileHot = false;
      labelFile.ForeColor = SystemColors.MenuText;
    }
    Invalidate();
    }
  
    private bool Sizing = false;
    private Point SizeOffset = Point.Empty;
    private void labelResize_MouseDown(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    Sizing = true;
    SizeOffset = new Point(this.Right - Cursor.Position.X, this.Bottom - Cursor.Position.Y);    
    }
  
    private void labelResize_MouseMove(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    if (Sizing)
    {
      //Clip cursor to dissallow sizing of form below 250x100
      Rectangle ClipRectangle = RectangleToScreen(new Rectangle(250, 100, Width, Height));
      ClipRectangle.Offset(SizeOffset);
      Cursor.Clip = ClipRectangle;
      this.Size = new Size(Cursor.Position.X + SizeOffset.X - Location.X, Cursor.Position.Y + SizeOffset.Y - Location.Y);
    }
    }
  
    private void labelResize_MouseUp(object sender, System.Windows.Forms.MouseEventArgs e)
    {
    Sizing = false;
    Cursor.Clip = Rectangle.Empty;    
    }
  
    private void MainForm_Resize(object sender, System.EventArgs e)
    {
    this.Region=new Region(FormShape);
    }
    
  }
}

by: Mick Dohertys'

Repair Encoding Error Adobe Media Encoder CS4

2011-07-29T10:24:00.000-07:00

"Could not read from the source"
When you will encode your premiere project squence with Adobe Media Encoder but you have failed?? and get some message like this:

-----------------------------------------------------------------------------

Could not read from the source. Please check if it has moved or been deleted.

-----------------------------------------------------------------------------

Yes, I hate it..
You know what's wrong? what is the reason? this is the reason:

"You removed an earlier version of Adobe Premiere Pro or Adobe Creative Suite on the same computer."

IT CAN BE FIXED, AND YOU CAN RENDER YOU ADOBE PREMIERE PROJECT WITH YOUR ADOBE MEDIA ENCODER.
I Found 2 solution from the adobe.com site. read it (Its Works):

[x] Solution 1: Create a shortcut to the Premiere Pro executable file, rename the shortcut to Premiere, and move the shortcut to C:\Program Files\Common Files\Adobe\dynamiclink.

Close all Adobe applications.
In Windows Explorer, navigate to C:\Program Files\Adobe\Adobe Premiere Pro CS4. (If you installed Premiere Pro CS4 in a location other than the default of C:\Program Files\Adobe, then navigate to your custom installation location.)
Right-click on Adobe Premiere Pro.exe (which might appear without the .exe extension) and choose Create Shortcut.
Rename the newly created shortcut to just Premiere.

[!] Important: The name of the shortcut must be exactly Premiere with no other characters.
Open a second Windows Explorer window, and navigate to C:\Program Files\Common Files\Adobe\dynamiclink.

Move the Premiere shortcut that you created into the dynamiclink folder.

[x] Solution 2: Remove and reinstall all Premiere Pro CS4 components or all Adobe Creative Suite 4 components.

Do one of the following:

Windows XP: Choose Start > Control Panel > Add or Remove Programs.
Windows Vista: Choose Start > Control Panel > Programs and Features.

In the list of installed programs, select Adobe Premiere Pro CS4, Adobe Creative Suite 4 Production Premium, or Adobe Creative Suite 4 Master Collection.
Click Change/Remove (Windows XP) or Uninstall (Windows Vista).
Follow the on-screen instructions to remove all components of Premiere Pro CS4 (including Adobe Encore CS4 and Adobe OnLocation CS4) or to remove all components of your edition of Adobe Creative Suite 4.
Re-install your Adobe software.

Based from: http://kb2.adobe.com/cps/407/kb407106.html

Create Slider Control With Custom Color

2011-07-27T12:50:00.000-07:00

All too often I see examples of custom controls which unnecessarily add child controls. For instance, a custom trackbar control may have a label or panel added to act as the scrolling thumb tab.
In this instance that's not so bad as it only creates one extra window handle, but where several such child controls are added the user will see what is percieved as flicker as each window is individually painted one after the other. No amount of doublebuffering will cure this.

Since we need to respond to mouse, keyboard or code change events and then calculate the exact bounds of the child control, it really makes no sense to add the extra control. We may as well apply those bounds to a rectangle instead, and then paint within this rectangle (don't have to paint a Rectangle just need to paint inside it).

The following example shows how to define and use a rectangle for this purpose. I have tried to make it behave just like a standard System.Windows.Forms.Trackbar control, but have made no offort to have it look like one. Hopefully, you'll be able to apply the same principles to other custom controls, perhaps using some of the many control renderers to simulate "lite" controls.

VB net Sample:

Imports System.ComponentModel
Namespace Dotnetrix.Samples.VB
  <DefaultEvent("Scroll"), _
  DefaultProperty("Value"), _
  ToolboxBitmap(GetType(System.Windows.Forms.TrackBar))> _
  Public Class TrackBar
    Inherits Control
    Public Sub New()
    MyBase.New()
    Me.SetStyle(ControlStyles.SupportsTransparentBackColor Or ControlStyles.OptimizedDoubleBuffer Or _
         ControlStyles.AllPaintingInWmPaint Or ControlStyles.Selectable Or ControlStyles.UserMouse, True)
    Me.Thumb = New Rectangle()
    Me.LayoutTrackBarParts()
    End Sub
    Protected Overrides ReadOnly Property DefaultSize() As System.Drawing.Size
    Get
      Return New Size(100, 60)
    End Get
    End Property
#Region " Event Delarations "
    Public Event Scroll As EventHandler
    Public Event ValueChanged As EventHandler
#End Region
#Region " Private Instance Variables "
    Private _orientation As Orientation = Orientation.Horizontal
    Private _minimum As Int32
    Private _maximum As Int32 = 10
    Private _smallChange As Int32 = 1
    Private _largeChange As Int32 = 5
    Private _value As Int32
    Private _tickStyle As TickStyle = TickStyle.BottomRight
    Private _tickFrequency As Int32 = 1
    Private _thumbDragging As Boolean
    Private _scrollUp As Boolean
    Private Thumb As Rectangle
    Private _thumbFocused As Boolean
    Private scrollTimer As Timer
#End Region
#Region " Public properties "
    <DefaultValue(GetType(Orientation), "Horizontal")> _
    Public Property Orientation() As Orientation
    Get
      Return _orientation
    End Get
    Set(ByVal value As Orientation)
      If (_orientation <> value) Then
        _orientation = value
        Dim w, h As Int32
        w = Me.Height
        h = Me.Width
        Me.Size = New Size(w, h)
        Me.LayoutTrackBarParts()
        Me.Invalidate()
      End If
    End Set
    End Property
    <DefaultValue(0), _
    RefreshProperties(RefreshProperties.All)> _
    Public Property Minimum() As Int32
    Get
      Return _minimum
    End Get
    Set(ByVal value As Int32)
      If (_minimum <> value) Then
        _minimum = value
        If (_maximum <= value) Then
        _maximum = value
        End If
        Me.LayoutTrackBarParts()
        Me.Invalidate()
      End If
    End Set
    End Property
    <DefaultValue(10)> _
    Public Property Maximum() As Int32
    Get
      Return _maximum
    End Get
    Set(ByVal value As Int32)
      If (_maximum <> value) Then
        _maximum = value
        If (Minimum >= value) Then
        Minimum = value
        End If
        Me.LayoutTrackBarParts()
        Me.Invalidate()
      End If
    End Set
    End Property
    <DefaultValue(1)> _
    Public Property SmallChange() As Int32
    Get
      Return _smallChange
    End Get
    Set(ByVal value As Int32)
      _smallChange = value
    End Set
    End Property
    <DefaultValue(5)> _
    Public Property LargeChange() As Int32
    Get
      Return _largeChange
    End Get
    Set(ByVal value As Int32)
      _largeChange = value
    End Set
    End Property
    Public Property Value() As Int32
    Get
      If (_value < Me.Minimum) Then
        Return Me.Minimum
      End If
      Return _value
    End Get
    Set(ByVal value As Int32)
      If (value < Me.Minimum) Then
        value = _minimum
      End If
      If (value > _maximum) Then
        value = _maximum
      End If
      If (value <> _value) Then
        _value = value
        Me.LayoutTrackBarParts()
        Me.OnValueChanged(EventArgs.Empty)
      End If
    End Set
    End Property
    Private Function ShouldSerializeValue() As Boolean
    Return Me._value <> Me.Minimum
    End Function
    Private Sub ResetValue()
    Me._value = Me.Minimum
    End Sub
    <DefaultValue(False)> _
    Public Shadows Property TabStop() As Boolean
    Get
      Return MyBase.TabStop
    End Get
    Set(ByVal value As Boolean)
      MyBase.TabStop = value
    End Set
    End Property
    <DefaultValue(""), _
    Browsable(False), _
    EditorBrowsable(EditorBrowsableState.Never)> _
    Public Overrides Property Text() As String
    Get
      Return String.Empty
    End Get
    Set(ByVal value As String)
      MyBase.Text = String.Empty
    End Set
    End Property
    <DefaultValue(GetType(TickStyle), "BottomRight")> _
    Public Property TickStyle() As TickStyle
    Get
      Return _tickStyle
    End Get
    Set(ByVal value As TickStyle)
      If (_tickStyle <> value) Then
        _tickStyle = value
        Me.Invalidate()
      End If
    End Set
    End Property
    <DefaultValue(1)> _
    Public Property TickFrequency() As Int32
    Get
      Return _tickFrequency
    End Get
    Set(ByVal value As Int32)
      If (_tickFrequency <> value) Then
        _tickFrequency = value
        Me.Invalidate()
      End If
    End Set
    End Property
#End Region
#Region " private Properties "
    Private ReadOnly Property Horizontal() As Boolean
    Get
      Return _orientation = Orientation.Horizontal
    End Get
    End Property
    Private Property ThumbDragging() As Boolean
    Get
      Return _thumbDragging
    End Get
    Set(ByVal value As Boolean)
      If (_thumbDragging <> value) Then
        _thumbDragging = value
        Me.Invalidate()
      End If
    End Set
    End Property
#End Region
#Region " Overridden Methods "
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    'Do default painting
    MyBase.OnPaint(e)
    'Draw Tick Marks
    DrawTicks(e.Graphics)
    'Draw Channel
    Dim channelBounds As Rectangle
    If Me.Horizontal Then
      channelBounds = New Rectangle(6, Me.Height / 2 - 2, Me.Width - 16, 4)
    Else
      channelBounds = New Rectangle(Me.Width / 2 - 2, 6, 4, Me.Height - 16)
    End If
    ControlPaint.DrawBorder3D(e.Graphics, channelBounds, Border3DStyle.Sunken)
    ' Draw the Thumb Object
    Using brush As SolidBrush = New SolidBrush(Color.Blue)
      If (_thumbFocused) Then
        brush.Color = Color.Green
      End If
      If (ThumbDragging) Then
        brush.Color = Color.Red
      End If
      e.Graphics.FillRectangle(brush, Me.Thumb)
    End Using
    'Draw Focus
    If (Me.Focused AndAlso Me.ShowFocusCues) Then
      ControlPaint.DrawFocusRectangle(e.Graphics, Me.ClientRectangle)
    End If
    End Sub
    Protected Overrides Sub OnGotFocus(ByVal e As EventArgs)
    MyBase.OnGotFocus(e)
    _thumbFocused = (Me.Focused AndAlso Me.ShowFocusCues)
    Me.Invalidate()
    End Sub
    Protected Overrides Sub OnLostFocus(ByVal e As EventArgs)
    MyBase.OnLostFocus(e)
    _thumbFocused = (Me.Focused AndAlso Me.ShowFocusCues)
    Me.Invalidate()
    End Sub
    Protected Overrides Function IsInputKey(ByVal keyData As Keys) As Boolean
    Select Case (keyData)
      Case Keys.Up, Keys.Down, Keys.Left, Keys.Right
        Return True
      Case Else
        Return MyBase.IsInputKey(keyData)
    End Select
    End Function
    Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
    MyBase.OnKeyDown(e)
    Select Case (e.KeyCode)
      Case Keys.Up, Keys.Left
        If (Me.Horizontal) Then
        Me.Value -= _smallChange
        Else
        Me.Value += _smallChange
        End If
      Case Keys.Down, Keys.Right
        If (Me.Horizontal) Then
        Me.Value += _smallChange
        Else
        Me.Value -= _smallChange
        End If
      Case Keys.PageDown
        If (Me.Horizontal) Then
        Me.Value += _largeChange
        Else
        Me.Value -= _largeChange
        End If
      Case Keys.PageUp
        If (Me.Horizontal) Then
        Me.Value -= _largeChange
        Else
        Me.Value += _largeChange
        End If
      Case Keys.Home
        If (Me.Horizontal) Then
        Me.Value = _minimum
        Else
        Me.Value = _maximum
        End If
      Case Keys.End
        If (Me.Horizontal) Then
        Me.Value = _maximum
        Else
        Me.Value = _minimum
        End If
    End Select
    End Sub
    Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
    MyBase.OnMouseWheel(e)
    Me.Value += (e.Delta / WHEEL_DELTA) * WHEEL_LINES
    End Sub
    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
    MyBase.OnMouseDown(e)
    If (e.Button = MouseButtons.Left) Then
      ThumbDragging = Thumb.Contains(e.Location)
      If (Not ThumbDragging) Then
        If (Me.Horizontal) Then
        _scrollUp = e.X > Thumb.Right
        Else
        _scrollUp = e.Y < Thumb.Top
        End If
        If (scrollTimer Is Nothing) Then
        InitTimer()
        End If
        scrollTimer.Start()
      End If
    End If
    End Sub
    Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
    MyBase.OnMouseUp(e)
    ThumbDragging = False
    If (Me.scrollTimer IsNot Nothing) Then
      Me.scrollTimer.Stop()
    End If
    End Sub
    Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
    MyBase.OnMouseMove(e)
    If (ThumbDragging) Then
      Me.Value = ValueFromPoint(e.Location)
    End If
    End Sub
    Protected Overrides Sub OnVisibleChanged(ByVal e As EventArgs)
    MyBase.OnVisibleChanged(e)
    If (Me.Visible) Then
      Me.LayoutTrackBarParts()
    End If
    End Sub
    Protected Overrides Sub OnSizeChanged(ByVal e As EventArgs)
    MyBase.OnSizeChanged(e)
    Me.LayoutTrackBarParts()
    End Sub
#End Region
#Region " Protected Methods "
    Protected Overridable Sub OnScroll(ByVal e As EventArgs)
    RaiseEvent Scroll(Me, e)
    End Sub
    Protected Overridable Sub OnValueChanged(ByVal eventArgs As EventArgs)
    RaiseEvent ValueChanged(Me, eventArgs)
    Me.LayoutTrackBarParts()
    Me.OnScroll(eventArgs)
    Me.Invalidate()
    End Sub
#End Region
#Region " Internal Methods "
    Private Sub LayoutTrackBarParts()
    If Me.Horizontal Then
      Thumb.Size = New Size(14, 28)
    Else
      Thumb.Size = New Size(28, 14)
    End If
    Dim channelLength As Single
    If Me.Horizontal Then
      channelLength = Me.Width - 26 ' Channel Left margin + Channel Right margin + Thumb.Width
    Else
      channelLength = Me.Height - 26 ' Channel Top margin + Channel Bottom margin + Thumb.Height
    End If
    Dim stepCount As Single = (Me.Maximum - Me.Minimum)
    Dim stepSize As Single
    If stepCount > 0 Then
      stepSize = channelLength / stepCount
    Else
      stepSize = 0
    End If
    Dim thumbOffset As Single = (stepSize) * (Me.Value - Me.Minimum)
    If Me.Horizontal Then
      Thumb.Location = Point.Round(New PointF(6 + thumbOffset, Me.Height / 2 - 14))
    Else
      Thumb.Location = Point.Round(New PointF(Me.Width / 2 - 14, channelLength - thumbOffset + 6))
    End If
    End Sub
    Private Sub InitTimer()
    Me.scrollTimer = New Timer()
    Me.scrollTimer.Interval = 500
    AddHandler scrollTimer.Tick, AddressOf scrollTimer_Tick
    End Sub
    Private Sub scrollTimer_Tick(ByVal sender As Object, ByVal e As EventArgs)
    If (_scrollUp) Then
      Me.Value += Me.LargeChange
    Else
      Me.Value -= Me.LargeChange
    End If
    If (Me._value = Me.Minimum OrElse Me._value = Me.Maximum) Then
      Me.scrollTimer.Stop()
    End If
    Dim val As Int32 = Me.ValueFromPoint(Me.PointToClient(Cursor.Position))
    If (_scrollUp AndAlso Me._value > val) Then
      Me.scrollTimer.Stop()
    End If
    If (Not _scrollUp AndAlso Me._value < val) Then
      Me.scrollTimer.Stop()
    End If
    End Sub
    Private Function ValueFromPoint(ByVal point As Point) As Int32
    Dim channelLength As Single
    If (Me.Horizontal) Then
      channelLength = Me.Width - 26 ' Channel Left margin + Channel Right margin + Thumb.Width
    Else
      channelLength = Me.Height - 26 ' Channel Top margin + Channel Bottom margin + Thumb.Height
    End If
    Dim stepCount As Single = (Me.Maximum - Me.Minimum)
    Dim stepSize As Single = 0
    If (stepCount > 0) Then
      stepSize = channelLength / stepCount
    End If
    If (Me.Horizontal) Then
      point.Offset(-7, 0)
      Return (point.X / stepSize) + Me.Minimum
    End If
    point.Offset(0, -7)
    Return Me.Maximum - (point.Y / stepSize) + Me.Minimum
    End Function
    Private Sub DrawTicks(ByVal graphics As Graphics)
    If (TickStyle <> TickStyle.None) Then
      'TODO: Implement Tick Drawing
    End If
    End Sub
#End Region
    Private WHEEL_DELTA As Int32 = SystemInformation.MouseWheelScrollDelta
    Private WHEEL_LINES As Int32 = SystemInformation.MouseWheelScrollLines
  End Class
End Namespace

CSharp Sample:

using System.Windows.Forms;
using System.Drawing;
using System.ComponentModel;
using System;
namespace Dotnetrix.Samples.CSharp
{
  [DefaultEvent("Scroll")]
  [DefaultProperty("Value")]
  [ToolboxBitmap(typeof(System.Windows.Forms.TrackBar))]
  public class TrackBar : Control
  {
    public TrackBar()
    : base()
    {
    this.SetStyle(ControlStyles.SupportsTransparentBackColor | ControlStyles.OptimizedDoubleBuffer |
          ControlStyles.AllPaintingInWmPaint | ControlStyles.Selectable | ControlStyles.UserMouse, true);
    this.Thumb = new Rectangle();
    this.LayoutTrackBarParts();
    }
    protected override Size DefaultSize
    {
    get
    {
      return new Size(100, 60);
    }
    }
    #region Event Delarations
    public event EventHandler Scroll;
    public event EventHandler ValueChanged;
    #endregion
    #region Private Instance Variables
    private Orientation orientation = Orientation.Horizontal;
    private int minimum = 0;
    private int maximum = 10;
    private int smallChange = 1;
    private int largeChange = 5;
    private int _value = 0;
    private TickStyle tickStyle = TickStyle.BottomRight;
    private int tickFrequency = 1;
    private bool thumbDragging = false;
    private bool scrollUp = false;
    private Rectangle Thumb;
    private bool ThumbFocused;
    private Timer scrollTimer;
    #endregion
    #region Public properties
    [DefaultValue(typeof(Orientation), "Horizontal")]
    public Orientation Orientation
    {
    get { return this.orientation; }
    set
    {
      if (this.orientation != value)
      {
        this.orientation = value;
        int w, h;
        w = this.Height;
        h = this.Width;
        this.Size = new Size(w, h);
        this.LayoutTrackBarParts();
        this.Invalidate();
      }
    }
    }
    [DefaultValue(0)]
    [RefreshProperties(RefreshProperties.All)]
    public int Minimum
    {
    get { return minimum; }
    set
    {
      if (minimum != value)
      {
        minimum = value;
        if (maximum <= value)
        Maximum = value;
        this.LayoutTrackBarParts();
        this.Invalidate();
      }
    }
    }
    [DefaultValue(10)]
    public int Maximum
    {
    get { return maximum; }
    set
    {
      if (maximum != value)
      {
        maximum = value;
        if (minimum >= value)
        Minimum = value;
        this.LayoutTrackBarParts();
        this.Invalidate();
      }
    }
    }
    [DefaultValue(1)]
    public int SmallChange
    {
    get { return smallChange; }
    set
    {
      if (smallChange != value)        
        smallChange = value;
    }
    }
    [DefaultValue(5)]
    public int LargeChange
    {
    get { return largeChange; }
    set
    {
      if (largeChange != value)
        largeChange = value;
    }
    }
    public int Value
    {
    get
    {
      if (_value < this.minimum)
        return this.minimum;
      return _value;
    }
    set
    {
      if (value < this.minimum)
        value = this.minimum;
      if (value > this.maximum)
        value = this.maximum;
      if (value != _value)
      {
        _value = value;
        this.LayoutTrackBarParts();
        this.OnValueChanged(EventArgs.Empty);
      }
    }
    }
    private bool ShouldSerializeValue()
    {
    return this._value != this.minimum;
    }
    private void ResetValue()
    {
    this._value = this.minimum;
    }
    [DefaultValue(false)]
    public new bool TabStop
    {
    get { return base.TabStop; }
    set { base.TabStop = value; }
    }
    [DefaultValue("")]
    [Browsable(false)]
    [EditorBrowsable(EditorBrowsableState.Never)]
    public override string Text
    {
    get { return ""; }
    set { base.Text = ""; }
    }
    [DefaultValue(typeof(TickStyle), "BottomRight")]
    public TickStyle TickStyle
    {
    get { return this.tickStyle; }
    set
    {
      if (this.tickStyle != value)
      {
        this.tickStyle = value;
        this.Invalidate();
      }
    }
    }
    [DefaultValue(1)]
    public int TickFrequency
    {
    get { return this.tickFrequency; }
    set
    {
      if (this.tickFrequency != value)
      {
        this.tickFrequency = value;
        this.Invalidate();
      }
    }
    }
    #endregion
    #region private Properties
    private bool Horizontal
    {
    get { return this.orientation == Orientation.Horizontal; }
    }
    private bool ThumbDragging
    {
    get { return thumbDragging; }
    set
    {
      if (thumbDragging != value)
      {
        thumbDragging = value;
        this.Invalidate();
      }
    }
    }
    #endregion
    #region Overridden Methods
    protected override void OnPaint(PaintEventArgs e)
    {
    //Do default painting
    base.OnPaint(e);
    //Draw Tick Marks
    DrawTicks(e.Graphics);
    //Draw Channel
    Rectangle channelBounds = this.Horizontal ?
      new Rectangle(6, this.Height / 2 - 2, this.Width - 16, 4) :
      new Rectangle(this.Width / 2 - 2, 6, 4, this.Height - 16);
    ControlPaint.DrawBorder3D(e.Graphics, channelBounds, Border3DStyle.Sunken);
    // Draw the Thumb Object
    using (SolidBrush brush = new SolidBrush(Color.Blue))
    {
      if (ThumbFocused)
        brush.Color = Color.Green;
      if (ThumbDragging)
        brush.Color = Color.Red;
      e.Graphics.FillRectangle(brush, this.Thumb);
    }
    //Draw Focus
    if (this.Focused && this.ShowFocusCues)
      ControlPaint.DrawFocusRectangle(e.Graphics, this.ClientRectangle);
    }
    protected override void OnGotFocus(EventArgs e)
    {
    base.OnGotFocus(e);
    ThumbFocused = (this.Focused && this.ShowFocusCues);
    this.Invalidate();
    }
    protected override void OnLostFocus(EventArgs e)
    {
    base.OnLostFocus(e);
    ThumbFocused = (this.Focused && this.ShowFocusCues);
    this.Invalidate();
    }
    protected override bool IsInputKey(Keys keyData)
    {
    switch (keyData)
    {
      case Keys.Up:
      case Keys.Down:
      case Keys.Left:
      case Keys.Right:
        return true;
      default:
        return base.IsInputKey(keyData);
    }
    }
    protected override void OnKeyDown(KeyEventArgs e)
    {
    base.OnKeyDown(e);
    switch (e.KeyCode)
    {
      case Keys.Up:
      case Keys.Left:
        this.Value += this.Horizontal ? -this.smallChange : this.smallChange;
        break;
      case Keys.Down:
      case Keys.Right:
        this.Value += this.Horizontal ? this.smallChange : -this.smallChange;
        break;
      case Keys.PageDown:
        this.Value += this.Horizontal ? this.largeChange : -this.largeChange;
        break;
      case Keys.PageUp:
        this.Value += this.Horizontal ? -this.largeChange : this.largeChange;
        break;
      case Keys.Home:
        this.Value = this.Horizontal ? this.minimum : this.maximum;
        break;
      case Keys.End:
        this.Value = this.Horizontal ? this.maximum : this.minimum;
        break;
    }
    }
    protected override void OnMouseWheel(MouseEventArgs e)
    {
    base.OnMouseWheel(e);
    this.Value += (e.Delta / WHEEL_DELTA) * WHEEL_LINES;
    }
    protected override void OnMouseDown(MouseEventArgs e)
    {
    base.OnMouseDown(e);
    if (e.Button == MouseButtons.Left)
    {
      ThumbDragging = Thumb.Contains(e.Location);
      if (!ThumbDragging)
      {
        scrollUp = this.Horizontal ? e.X > Thumb.Right : e.Y < Thumb.Top;
        if (scrollTimer == null)
        InitTimer();
        scrollTimer.Start();
      }
    }
    }
    protected override void OnMouseUp(MouseEventArgs e)
    {
    base.OnMouseUp(e);
    ThumbDragging = false;
    if (this.scrollTimer != null)
      this.scrollTimer.Stop();
    }
    protected override void OnMouseMove(MouseEventArgs e)
    {
    base.OnMouseMove(e);
    if (ThumbDragging)
    {
      this.Value = ValueFromPoint(e.Location);
    }
    }
    protected override void OnVisibleChanged(EventArgs e)
    {
    base.OnVisibleChanged(e);
    if (this.Visible)
      this.LayoutTrackBarParts();
    }
    protected override void OnSizeChanged(EventArgs e)
    {
    base.OnSizeChanged(e);
    this.LayoutTrackBarParts();
    }
    #endregion
    #region Protected Methods
    protected virtual void OnScroll(EventArgs e)
    {
    if (this.Scroll != null)
      this.Scroll(this, e);
    }
    protected virtual void OnValueChanged(EventArgs eventArgs)
    {
    if (this.ValueChanged != null)
      this.ValueChanged(this, eventArgs);
    this.LayoutTrackBarParts();
    this.OnScroll(eventArgs);
    this.Invalidate();
    }
    #endregion
    #region Internal Methods
    private void LayoutTrackBarParts()
    {
    if (Thumb == null)
      return;
    Thumb.Size = this.Horizontal ?
      new Size(14, 28) :
      new Size(28, 14);
    float channelLength = this.Horizontal ?
      this.Width - 26 : // Channel Left margin + Channel Right margin + Thumb.Width
      this.Height - 26; // Channel Top margin + Channel Bottom margin + Thumb.Height
    float stepCount = (this.Maximum - this.Minimum);
    float stepSize = stepCount > 0 ? channelLength / stepCount : 0;
    float thumbOffset = (stepSize) * (this.Value - this.minimum);
    Thumb.Location = this.Horizontal ?
      Point.Round(new PointF(6 + thumbOffset, this.Height / 2 - 14)) :
      Point.Round(new PointF(this.Width / 2 - 14, channelLength - thumbOffset + 6));
    }
    private void InitTimer()
    {
    this.scrollTimer = new Timer();
    this.scrollTimer.Interval = 500;
    this.scrollTimer.Tick += new EventHandler(scrollTimer_Tick);
    }
    private void scrollTimer_Tick(object sender, EventArgs e)
    {
    this.Value += this.scrollUp ? this.largeChange : -this.largeChange;
    if (this._value == this.minimum || this._value == this.maximum)
      this.scrollTimer.Stop();
    int val = this.ValueFromPoint(this.PointToClient(Cursor.Position));
    if (this.scrollUp && this._value > val)
      this.scrollTimer.Stop();
    if (!this.scrollUp && this._value < val)
      this.scrollTimer.Stop();
    }
    private int ValueFromPoint(Point point)
    {
    float channelLength = this.Horizontal ?
      this.Width - 26 : // Channel Left margin + Channel Right margin + Thumb.Width
      this.Height - 26; // Channel Top margin + Channel Bottom margin + Thumb.Height
    float stepCount = (this.maximum - this.minimum);
    float stepSize = stepCount > 0 ? channelLength / stepCount : 0;
    if (this.Horizontal)
    {
      point.Offset(-7, 0);
      return (int)(point.X / stepSize) + this.minimum;
    }
    point.Offset(0, -7);
    return this.maximum - (int)(point.Y / stepSize) + this.minimum;
    }
    private void DrawTicks(Graphics graphics)
    {
    if (tickStyle == TickStyle.None)
      return;
    //TODO: Implement Tick Drawing
    }

    #endregion
    private int WHEEL_DELTA = SystemInformation.MouseWheelScrollDelta;
    private int WHEEL_LINES = SystemInformation.MouseWheelScrollLines;
  }
}

by: Mick Dohertys'

Create a Circle Rounded Panel Controls

2011-07-27T12:44:00.000-07:00

When we Draw to a Graphics object we can set AntiAlias so as to make the edges of complex shapes look smooth. This is done by altering the color of some of the pixels on and around the edge so that the jagged edges appear smooth.
When we create a region from a complex shape though, the recoloured pixels outside of the region are lost and as there is no way to trim the edges of the pixels (they are always square) our regions appear jagged. A simple solution to this is to put a pseudo transparent 1 pixel border around the control when shaping it. I doubt very much that you will notice this border, but it will greatly improve the appearance of the edges of your shaped control.
Because the Control in this example has rounded edges, it is not suitable for the AutoScrol property as the ScrollBars will be Clipped. For this reason the Control Inherits from Control and because we want to use it as a Container we have assigned the ParentControlDesigner to the Class.

VB net Sample:

Namespace Dotnetrix.Samples.VB
  <System.ComponentModel.Designer(GetType(System.Windows.Forms.Design.ParentControlDesigner))> _
  Public Class RoundedPanel
  Inherits System.Windows.Forms.UserControl
#Region " Windows Form Designer generated code "
  Public Sub New()
  MyBase.New()
  'This call is required by the Windows Form Designer.
  InitializeComponent()
  'Add any initialization after the InitializeComponent() call
  Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.UserPaint, True)
  End Sub
  'UserControl overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  If disposing Then
  If Not (components Is Nothing) Then
    components.Dispose()
  End If
  End If
  MyBase.Dispose(disposing)
  End Sub
  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer
  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  components = New System.ComponentModel.Container
  End Sub
#End Region
  Private m_BorderRadius As Int32 = 32
  Public Property BorderRadius() As Int32
  Get
  Return m_BorderRadius
  End Get
  Set(ByVal Value As Int32)
  m_BorderRadius = Value
  Me.Invalidate()
  End Set
  End Property
  Protected Overrides ReadOnly Property DefaultSize() As System.Drawing.Size
  Get
  Return New Size(200, 100)
  End Get
  End Property
  Protected Overrides Sub OnMove(ByVal e As System.EventArgs)
  MyBase.OnMove(e)
  Me.Invalidate()
  End Sub
  Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
  MyBase.OnResize(e)
  Me.Invalidate()
  End Sub
  Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
  'Draw the Parent onto our Control to give pseudo transparency.
  'The BeginContainer and EndContainer calls stop incorrect painting of 
  'child controls when both container and child have BackColor set to Transparent.
  'This only happens as a result of the TranslateTransform() call.
  Dim g As System.Drawing.Drawing2D.GraphicsContainer = pevent.Graphics.BeginContainer()
  Dim translateRect As Rectangle = Me.Bounds
  pevent.Graphics.TranslateTransform(-Me.Left, -Me.Top)
  Dim pe As PaintEventArgs = New PaintEventArgs(pevent.Graphics, translateRect)
  Me.InvokePaintBackground(Me.Parent, pe)
  Me.InvokePaint(Me.Parent, pe)
  pevent.Graphics.ResetTransform()
  pevent.Graphics.EndContainer(g)
  'Define the custom Border Region, Brush and Pen.
  Dim border As System.Drawing.Drawing2D.GraphicsPath
  Dim paintBrush As New SolidBrush(Me.BackColor)
  Dim borderPen As New Pen(Me.ForeColor)
  Dim r As Rectangle = Me.ClientRectangle
  'Set the Region of the Control
  Me.Region = New Region(RoundRegion(r))
  r.Inflate(-1, -1)
  border = RoundRegion(r)
  'Fill The Region with the Controls BackColor
  pevent.Graphics.FillPath(paintBrush, border)
  'Paint any BackgroundImage that might have been set
  If Not (Me.BackgroundImage Is Nothing) Then
  Dim br As Brush = New TextureBrush(Me.BackgroundImage)
  pevent.Graphics.FillPath(br, border)
  br.Dispose()
  End If
  'Draw the Region
  pevent.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality
  pevent.Graphics.DrawPath(borderPen, border)
  'Clean Up
  borderPen.Dispose()
  paintBrush.Dispose()
  border.Dispose()
  End Sub
  Private Function RoundRegion(ByVal r As Rectangle) As System.Drawing.Drawing2D.GraphicsPath
  'Scale the radius if it's too large to fit.
  Dim radius As Int32 = m_BorderRadius
  If (radius > (r.Width)) Then radius = r.Width
  If (radius > (r.Height)) Then radius = r.Height
  Dim path As New System.Drawing.Drawing2D.GraphicsPath
  If radius <= 0 Then
  path.AddRectangle(r)
  Else
  path.AddArc(r.Left, r.Top, radius, radius, 180, 90)
  path.AddArc(r.Right - radius, r.Top, radius, radius, 270, 90)
  path.AddArc(r.Right - radius, r.Bottom - radius, radius, radius, 0, 90)
  path.AddArc(r.Left, r.Bottom - radius, radius, radius, 90, 90)
  path.CloseFigure()
  End If
  Return path
  End Function
  End Class
End Namespace

CSharp Sample:

using System;
using System.Collections;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Windows.Forms;
namespace Dotnetrix.Samples.CSharp
{
  /// <summary>
  /// Summary description for RoundedPanel.
  /// </summary>
  [System.ComponentModel.Designer(typeof(System.Windows.Forms.Design.ParentControlDesigner))]
  public class RoundedPanel : System.Windows.Forms.Control
  {
  /// <summary> 
  /// Required designer variable.
  /// </summary>
  private System.ComponentModel.Container components = null;
  public RoundedPanel()
  {
  // This call is required by the Windows.Forms Form Designer.
  InitializeComponent();
  // TODO: Add any initialization after the InitializeComponent call
  this.SetStyle(ControlStyles.AllPaintingInWmPaint | ControlStyles.DoubleBuffer | ControlStyles.UserPaint, true);
  }
  /// <summary> 
  /// Clean up any resources being used.
  /// </summary>
  protected override void Dispose( bool disposing )
  {
  if( disposing )
  {
  if(components != null)
  {
    components.Dispose();
  }
  }
  base.Dispose( disposing );
  }
  #region Component Designer generated code
  /// <summary> 
  /// Required method for Designer support - do not modify 
  /// the contents of this method with the code editor.
  /// </summary>
  private void InitializeComponent()
  {
  components = new System.ComponentModel.Container();
  }
  #endregion
  private int borderRadius = 32;
  public int BorderRadius
  {
  get{return borderRadius;}
  set
  {
  borderRadius = value;
  this.Invalidate();
  }
  }
  protected override Size DefaultSize
  {
  get{return new Size(200,100);}
  }
  protected override void OnMove(EventArgs e)
  {
  base.OnMove (e);
  this.Invalidate();
  }
  protected override void OnResize(EventArgs e)
  {
  base.OnResize (e);
  this.Invalidate();
  }
  protected override void OnPaintBackground(PaintEventArgs pevent)
  {
  //Draw the Parent onto our Control to give pseudo transparency.
  //The BeginContainer and EndContainer calls stop incorrect painting of 
  //child controls when both container and child have BackColor set to Transparent.
  //This only happens as a result of the TranslateTransform() call.
  System.Drawing.Drawing2D.GraphicsContainer g = pevent.Graphics.BeginContainer();
  Rectangle translateRect = this.Bounds;
  pevent.Graphics.TranslateTransform(-this.Left,-this.Top);
  PaintEventArgs pe = new PaintEventArgs(pevent.Graphics,translateRect);
  this.InvokePaintBackground(this.Parent,pe);
  this.InvokePaint(this.Parent,pe);
  pevent.Graphics.ResetTransform();
  pevent.Graphics.EndContainer(g);
  //Define the custom Border Region, Brush and Pen.
  System.Drawing.Drawing2D.GraphicsPath border;
  Brush paintBrush = new SolidBrush(this.BackColor);
  Pen borderPen = new Pen(this.ForeColor);
  Rectangle r = this.ClientRectangle;
  //Set the Region of the Control
  this.Region = new Region(RoundRegion(r));
  r.Inflate(-1,-1);
  border = RoundRegion(r);
  //Fill The Region with the Controls BackColor
  pevent.Graphics.FillPath(paintBrush,border);
  //Paint any BackgroundImage that might have been set
  if (this.BackgroundImage != null)
  {
  Brush br = new TextureBrush(this.BackgroundImage);
  pevent.Graphics.FillPath(br,border);
  br.Dispose();
  }
  //Draw the Region
  pevent.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;
  pevent.Graphics.DrawPath(borderPen,border);
  //Clean Up
  borderPen.Dispose();
  paintBrush.Dispose();
  border.Dispose();
  }
  private System.Drawing.Drawing2D.GraphicsPath RoundRegion(Rectangle r)
  {
  //Scale the radius if it's too large to fit.
  int radius = borderRadius;
  if (radius > (r.Width))
  radius = r.Width;
  if (radius > (r.Height))
  radius = r.Height;
  System.Drawing.Drawing2D.GraphicsPath path = new System.Drawing.Drawing2D.GraphicsPath();
  if (radius <= 0)
  {
  path.AddRectangle(r);
  }
  else
  {
  path.AddArc(r.Left,r.Top,radius,radius,180,90);
  path.AddArc(r.Right - radius,r.Top,radius,radius,270,90);
  path.AddArc(r.Right-radius,r.Bottom-radius,radius,radius,0,90);
  path.AddArc(r.Left,r.Bottom-radius,radius,radius,90,90);
  path.CloseFigure();
  }
  return path;
  }
  }
}

by: Mick Dohertys'

Create Combobox With Icon

2011-07-25T06:32:00.000-07:00

The following class modifies the Item collection to return a collection of Custom items. The Property Browser uses the Collection Editor rather than the StringCollection Editor. The DrawMode property has been hidden, since this property should not be changed.

VB net Sample:

Imports System.ComponentModel
Imports System.Drawing.Design
Imports System.ComponentModel.Design

Namespace Dotnetrix_Samples

  Public Class ImageCombo
  Inherits System.Windows.Forms.ComboBox

#Region " Windows Form Designer generated code "

  Public Sub New()
  MyBase.New()

  'This call is required by the Windows Form Designer.
  InitializeComponent()

  'Add any initialization after the InitializeComponent() call
  MyBase.DrawMode = DrawMode.OwnerDrawFixed

  End Sub

  'UserControl overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  If disposing Then
  If Not (components Is Nothing) Then
    components.Dispose()
  End If
  If Not (Me.Items Is Nothing) Then
    For Each o As Object In Me.Items
    If TypeOf o Is ImageComboItem Then
    DirectCast(o, ImageComboItem).Dispose()
    End If
    Next
  End If
  End If
  MyBase.Dispose(disposing)
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  components = New System.ComponentModel.Container
  End Sub

#End Region

  Private currentIndex As Int32 = -1

  <Browsable(False), EditorBrowsable(EditorBrowsableState.Never)> _
  Public Shadows ReadOnly Property DrawMode() As DrawMode
  Get
  Return DrawMode.OwnerDrawFixed
  End Get
  End Property

  <Editor(GetType(ImageComboItemEditor), GetType(UITypeEditor)), _
  DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
  Public Shadows ReadOnly Property Items() As ObjectCollection
  Get
  Return MyBase.Items
  End Get
  End Property

  Private Class ImageComboItemEditor
  Inherits CollectionEditor

  Public Sub New(ByVal type As Type)
  MyBase.New(type)
  End Sub

  Protected Overrides Function CreateCollectionItemType() As System.Type
  Return GetType(ImageComboItem)
  End Function

  End Class

  Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)

  If e.Index = -1 OrElse e.Index > Me.Items.Count - 1 Then Return

  e.DrawBackground()

  Dim imageRect As Rectangle = New Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height)
  Dim textRectF As RectangleF = RectangleF.FromLTRB(imageRect.Right + 2, e.Bounds.Top, e.Bounds.Right, e.Bounds.Bottom)

  If TypeOf Items(e.Index) Is ImageComboItem Then

  Dim Item As ImageComboItem = DirectCast(Items(e.Index), ImageComboItem)

  If Not (Item.Image Is Nothing) Then
    e.Graphics.DrawImage(Item.Image, imageRect)
  End If
  End If

  Dim TextBrush As New SolidBrush(Me.ForeColor)
  If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
  TextBrush.Color = SystemColors.HighlightText
  End If

  Dim sf As New StringFormat(StringFormatFlags.NoWrap)
  sf.LineAlignment = StringAlignment.Center
  sf.Trimming = StringTrimming.EllipsisCharacter

  e.Graphics.DrawString(Items(e.Index).ToString, Me.Font, TextBrush, textRectF, sf)
  TextBrush.Dispose()

  End Sub

  Protected Overrides Sub OnSelectedIndexChanged(ByVal e As System.EventArgs)
  If Me.SelectedIndex <> currentIndex Then
  currentIndex = Me.SelectedIndex
  MyBase.RefreshItem(Me.SelectedIndex)
  Else
  MyBase.OnSelectedIndexChanged(e)
  End If
  End Sub

  End Class

  <DesignTimeVisible(False)> _
  Public Class ImageComboItem
  Inherits Component

  Private m_object As Object
  Private m_Image As Image

  <TypeConverter(GetType(StringConverter))> _
  Public Property [Item]() As Object
  Get
  Return m_object
  End Get
  Set(ByVal Value As Object)
  m_object = Value
  End Set
  End Property

  Public Property [Image]() As Image
  Get
  Return m_Image
  End Get
  Set(ByVal Value As Image)
  m_Image = Value
  End Set
  End Property

  Public Overrides Function ToString() As String
  If m_object Is Nothing Then
  Return String.Empty
  Else
  Return m_object.ToString
  End If
  End Function

  End Class

End Namespace

CSharp Sample:

using System;
using System.ComponentModel;
using System.Drawing;
using System.Windows.Forms;

using System.Drawing.Design;
using System.ComponentModel.Design;

namespace Dotnetrix_Samples
{
  /// <summary>
  /// Summary description for ImageCombo.
  /// </summary>
  public class ImageCombo : System.Windows.Forms.ComboBox
  {
  /// <summary> 
  /// Required designer variable.
  /// </summary>
  private System.ComponentModel.Container components = null;

  public ImageCombo()
  {
  // This call is required by the Windows.Forms Form Designer.
  InitializeComponent();

  // TODO: Add any initialization after the InitializeComponent call
  base.DrawMode = DrawMode.OwnerDrawVariable;

  }

  /// <summary> 
  /// Clean up any resources being used.
  /// </summary>
  protected override void Dispose( bool disposing )
  {
  if( disposing )
  {
  if(components != null)
  {
    components.Dispose();
  }
  if (this.Items != null)
  {
    foreach (Object o in this.Items)
    {
    if (o is ImageComboItem)
    ((ImageComboItem)o).Dispose();
    }
  }
  }
  base.Dispose( disposing );
  }

  #region Component Designer generated code
  /// <summary> 
  /// Required method for Designer support - do not modify 
  /// the contents of this method with the code editor.
  /// </summary>
  private void InitializeComponent()
  {
  components = new System.ComponentModel.Container();
  }
  #endregion

  private int currentIndex = -1;

  [Browsable(false), EditorBrowsable(EditorBrowsableState.Never)]
  public new DrawMode DrawMode
  {
  get{return DrawMode.OwnerDrawFixed;}
  }


  [Editor(typeof(ImageComboItemEditor), typeof(UITypeEditor))]
  [DesignerSerializationVisibility(DesignerSerializationVisibility.Content)]
  public new ObjectCollection Items
  {
  get{return base.Items;}
  }


  private class ImageComboItemEditor : CollectionEditor
  {
  public ImageComboItemEditor(Type type):base(type){}

  protected override Type CreateCollectionItemType()
  {
  return typeof(ImageComboItem);
  }


  }


  protected override void OnDrawItem(DrawItemEventArgs e)
  {
  if (e.Index == -1 || e.Index > this.Items.Count - 1)
  return;

  e.DrawBackground();

  Rectangle imageRect = new Rectangle(e.Bounds.X, e.Bounds.Y, e.Bounds.Height, e.Bounds.Height);
  RectangleF textRectF = RectangleF.FromLTRB(imageRect.Right + 2, e.Bounds.Top, e.Bounds.Right, e.Bounds.Bottom);
  
  if (Items[e.Index] is ImageComboItem )
  {
  ImageComboItem Item = (ImageComboItem)Items[e.Index];
  
  if (Item.Image != null)
    e.Graphics.DrawImage(Item.Image, imageRect);
  }

  SolidBrush TextBrush = new SolidBrush(this.ForeColor);
  if ((e.State & DrawItemState.Selected) == DrawItemState.Selected)
  TextBrush.Color = SystemColors.HighlightText;

  StringFormat sf = new StringFormat(StringFormatFlags.NoWrap);
  sf.LineAlignment = StringAlignment.Center;
  sf.Trimming = StringTrimming.EllipsisCharacter;

  e.Graphics.DrawString(Items[e.Index].ToString(), this.Font, TextBrush, textRectF, sf);
  TextBrush.Dispose();
  }

  protected override void OnSelectedIndexChanged(EventArgs e)
  {
  if (this.SelectedIndex != this.currentIndex)
  {
  this.currentIndex = this.SelectedIndex;
  base.RefreshItem(this.SelectedIndex);
  }
  else
  {
  base.OnSelectedIndexChanged (e);
  }

  }

  }

  [DesignTimeVisible(false)]
  public class ImageComboItem : Component
  {

  private Object m_object;
  private Image m_Image;

  [TypeConverter(typeof(StringConverter))]
  public Object Item
  {
  get{return m_object;}
  set{m_object = value;}
  }

  public Image Image
  {
  get{return m_Image;}
  set{m_Image = value;}
  }

  public override string ToString()
  {
  if (m_object == null)
  return String.Empty;
  else
  return m_object.ToString();
  }


  }

}

by: Mick Dohertys'

Create Custom Button in Form

2011-07-25T06:23:00.000-07:00

No need to Inherit from Button if you want a button with a completely custom appearance.
The following class defines a Custom Button which can be set as a forms AcceptButton or CancelButton, but which is inherited from Control rather than Button. It also includes a custom TypeEditor to allow selection of corners to be rounded.

Note: that this example needs a reference to System.Design.dll since it uses a custom TypeEditor

VB net Sample:

Imports System.ComponentModel
  Imports System.Security.Permissions
  Imports System.Drawing.Design
  Imports System.Windows.Forms.Design

  Namespace Dotnetrix.Samples.VB

  <Flags()> _
  Public Enum Corners
  None = 0
  TopLeft = 1
  TopRight = 2
  BottomLeft = 4
  BottomRight = 8
  All = TopLeft Or TopRight Or BottomLeft Or BottomRight
  End Enum

  Public Enum CustomButtonState
  [Normal] = 1
  [Hot]
  [Pressed]
  [Disabled]
  [Focused]
  End Enum

  Public Class CustomButton
  Inherits Control
  Implements IButtonControl

  Public Sub New()
  MyBase.New()
  Me.SetStyle(ControlStyles.Selectable Or ControlStyles.StandardClick Or ControlStyles.ResizeRedraw Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.SupportsTransparentBackColor, True)
  End Sub

  #Region " Private Instance Variables "

  Private m_DialogResult As DialogResult
  Private m_IsDefault As Boolean

  Private m_CornerRadius As Int32 = 8
  Private m_RoundCorners As Corners
  Private m_ButtonState As CustomButtonState = CustomButtonState.Normal

  Private m_ImageAlign As ContentAlignment = ContentAlignment.MiddleCenter
  Private m_TextAlign As ContentAlignment = ContentAlignment.MiddleCenter
  Private m_ImageList As ImageList
  Private m_ImageIndex As Int32 = -1

  Private keyPressed As Boolean
  Private contentRect As Rectangle

  #End Region

  #Region " IButtonControl Implementation "

  <Category("Behavior"), DefaultValue(GetType(DialogResult), "None"), _
  Description("The dialog result produced in a modal form by clicking the button.")> _
  Public Property DialogResult() As System.Windows.Forms.DialogResult Implements System.Windows.Forms.IButtonControl.DialogResult
  Get
    Return m_DialogResult
  End Get
  Set(ByVal Value As System.Windows.Forms.DialogResult)
    If [Enum].IsDefined(GetType(DialogResult), Value) Then
    m_DialogResult = Value
    End If
  End Set
  End Property

  Public Sub NotifyDefault(ByVal value As Boolean) Implements System.Windows.Forms.IButtonControl.NotifyDefault
  If m_IsDefault <> value Then
    m_IsDefault = value
  End If
  Me.Invalidate()
  End Sub

  Public Sub PerformClick() Implements System.Windows.Forms.IButtonControl.PerformClick
  If Me.CanSelect Then
    MyBase.OnClick(EventArgs.Empty)
  End If
  End Sub

  #End Region

  #Region " Properties "

  'ButtonState
  <Browsable(False)> _
  Public ReadOnly Property ButtonState() As CustomButtonState
  Get
    Return m_ButtonState
  End Get
  End Property

  'CornerRadius
  <Category("Appearance"), _
  DefaultValue(8), _
  Description("Defines the radius of the controls RoundedCorners.")> _
  Public Property CornerRadius() As Int32
  Get
    Return m_CornerRadius
  End Get
  Set(ByVal Value As Int32)
    If m_CornerRadius = Value Then Return
    m_CornerRadius = Value
    Me.Invalidate()
  End Set
  End Property

  'DefaultSize
  Protected Overrides ReadOnly Property DefaultSize() As System.Drawing.Size
  Get
    Return New Size(75, 23)
  End Get
  End Property

  'IsDefault
  <Browsable(False)> _
  Public ReadOnly Property IsDefault() As Boolean
  Get
    Return m_IsDefault
  End Get
  End Property

  'ImageList
  <Category("Appearance"), DefaultValue(GetType(ImageList), Nothing), _
  Description("The image list to get the image to display in the face of the control.")> _
  Public Property ImageList() As ImageList
  Get
    Return m_ImageList
  End Get
  Set(ByVal Value As ImageList)
    m_ImageList = Value
    Me.Invalidate()
  End Set
  End Property

  'ImageIndex
  <Category("Appearance"), DefaultValue(-1), _
  Description("The index of the image in the image list to display in the face of the control."), _
  TypeConverter(GetType(ImageIndexConverter)), _
  Editor("System.Windows.Forms.Design.ImageIndexEditor, System.Design", GetType(System.Drawing.Design.UITypeEditor))> _
  Public Property ImageIndex() As Int32
  Get
    Return m_ImageIndex
  End Get
  Set(ByVal Value As Int32)
    m_ImageIndex = Value
    Me.Invalidate()
  End Set
  End Property

  'ImageAlign
  <Category("Appearance"), DefaultValue(GetType(ContentAlignment), "MiddleCenter"), _
  Description("The alignment of the image that will be displayed in the face of the control.")> _
  Public Property ImageAlign() As ContentAlignment
  Get
    Return m_ImageAlign
  End Get
  Set(ByVal Value As ContentAlignment)
    If Not [Enum].IsDefined(GetType(ContentAlignment), Value) Then
    Throw New InvalidEnumArgumentException("value", CInt(Value), GetType(ContentAlignment))
    End If
    If m_ImageAlign = Value Then Return
    m_ImageAlign = Value
    Invalidate()
  End Set
  End Property

  'RoundCorners
  <Category("Appearance"), _
  DefaultValue(GetType(Corners), "None"), _
  Description("Gets/sets the corners of the control to round."), _
  Editor(GetType(RoundCornersEditor), GetType(UITypeEditor)), _
  DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
  Public Property RoundCorners() As Corners
  Get
    Return m_RoundCorners
  End Get
  Set(ByVal Value As Corners)
    If m_RoundCorners = Value Then Return
    m_RoundCorners = Value
    Me.Invalidate()
  End Set
  End Property

  'TextAlign
  <Category("Appearance"), DefaultValue(GetType(ContentAlignment), "MiddleCenter"), _
  Description("The alignment of the text that will be displayed in the face of the control.")> _
  Public Property TextAlign() As ContentAlignment
  Get
    Return m_TextAlign
  End Get
  Set(ByVal Value As ContentAlignment)
    If Not [Enum].IsDefined(GetType(ContentAlignment), Value) Then
    Throw New InvalidEnumArgumentException("value", CInt(Value), GetType(ContentAlignment))
    End If
    If m_TextAlign = Value Then Return
    m_TextAlign = Value
    Invalidate()
  End Set
  End Property

  #End Region

  #Region " Overriden Methods "

  Protected Overrides Sub OnKeyDown(ByVal kevent As System.Windows.Forms.KeyEventArgs)
  MyBase.OnKeyDown(kevent)
  If kevent.KeyValue = Keys.Space Then
    keyPressed = True
    m_ButtonState = CustomButtonState.Pressed
  End If
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnKeyUp(ByVal kevent As System.Windows.Forms.KeyEventArgs)
  MyBase.OnKeyUp(kevent)
  If kevent.KeyValue = Keys.Space Then
    If Me.ButtonState = CustomButtonState.Pressed Then
    Me.PerformClick()
    End If
    keyPressed = False
    m_ButtonState = CustomButtonState.Focused
  End If
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnMouseEnter(ByVal eventargs As System.EventArgs)
  MyBase.OnMouseEnter(eventargs)
  If Not keyPressed Then
    m_ButtonState = CustomButtonState.Hot
  End If
  OnStateChange(eventargs.Empty)
  End Sub

  Protected Overrides Sub OnMouseLeave(ByVal eventargs As System.EventArgs)
  MyBase.OnMouseLeave(eventargs)
  If Not keyPressed Then
    If Me.IsDefault Then
    m_ButtonState = CustomButtonState.Focused
    Else
    m_ButtonState = CustomButtonState.Normal
    End If
  End If
  OnStateChange(eventargs.Empty)
  End Sub

  Protected Overrides Sub OnMouseDown(ByVal mevent As System.Windows.Forms.MouseEventArgs)
  MyBase.OnMouseDown(mevent)
  If mevent.Button = MouseButtons.Left Then
    Me.Focus()
    m_ButtonState = CustomButtonState.Pressed
  End If
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnMouseUp(ByVal mevent As System.Windows.Forms.MouseEventArgs)
  MyBase.OnMouseUp(mevent)
  m_ButtonState = CustomButtonState.Focused
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnMouseMove(ByVal mevent As System.Windows.Forms.MouseEventArgs)
  MyBase.OnMouseMove(mevent)
  If New Rectangle(Point.Empty, Me.Size).Contains(mevent.X, mevent.Y) AndAlso mevent.Button = MouseButtons.Left Then
    m_ButtonState = CustomButtonState.Pressed
  Else
    If keyPressed Then Return
    m_ButtonState = CustomButtonState.Hot
  End If
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnGotFocus(ByVal e As System.EventArgs)
  MyBase.OnGotFocus(e)
  m_ButtonState = CustomButtonState.Focused
  Me.NotifyDefault(True)
  End Sub

  Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
  MyBase.OnLostFocus(e)
  If Me.FindForm.Focused Then
    Me.NotifyDefault(False)
  End If
  m_ButtonState = CustomButtonState.Normal
  End Sub

  Protected Overrides Sub OnEnabledChanged(ByVal e As System.EventArgs)
  MyBase.OnEnabledChanged(e)
  If Me.Enabled Then
    m_ButtonState = CustomButtonState.Normal
  Else
    m_ButtonState = CustomButtonState.Disabled
  End If
  OnStateChange(EventArgs.Empty)
  End Sub

  Protected Overrides Sub OnClick(ByVal e As System.EventArgs)
  'Click gets fired before MouseUp which is handy
  If Me.ButtonState = CustomButtonState.Pressed Then
    Me.Focus()
    Me.PerformClick()
  End If
  End Sub

  Protected Overrides Sub OnDoubleClick(ByVal e As System.EventArgs)
  If Me.ButtonState = CustomButtonState.Pressed Then
    Me.Focus()
    Me.PerformClick()
  End If
  End Sub

  Protected Overrides Function ProcessMnemonic(ByVal charCode As Char) As Boolean
  If IsMnemonic(charCode, Me.Text) Then
    MyBase.OnClick(EventArgs.Empty)
    Return True
  End If
  Return MyBase.ProcessMnemonic(charCode)
  End Function

  Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
  MyBase.OnTextChanged(e)
  Me.Invalidate()
  End Sub

  Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)

  'Simulate Transparency
  Dim g As System.Drawing.Drawing2D.GraphicsContainer = pevent.Graphics.BeginContainer()
  Dim translateRect As Rectangle = Me.Bounds
  pevent.Graphics.TranslateTransform(-Me.Left, -Me.Top)
  Dim pe As PaintEventArgs = New PaintEventArgs(pevent.Graphics, translateRect)
  Me.InvokePaintBackground(Me.Parent, pe)
  Me.InvokePaint(Me.Parent, pe)
  pevent.Graphics.ResetTransform()
  pevent.Graphics.EndContainer(g)

  pevent.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias

  Dim shadeColor, fillColor As Color
  Dim darkColor As Color = DarkenColor(Me.BackColor, 10)
  Dim darkDarkColor As Color = DarkenColor(Me.BackColor, 25)
  Dim lightColor As Color = LightenColor(Me.BackColor, 25)
  Dim lightLightColor As Color = LightenColor(Me.BackColor, 60)

  If Me.ButtonState = CustomButtonState.Hot Then
    fillColor = lightColor
    shadeColor = darkDarkColor
  ElseIf Me.ButtonState = CustomButtonState.Pressed Then
    fillColor = Me.BackColor
    shadeColor = Me.BackColor
  Else
    fillColor = Me.BackColor
    shadeColor = darkDarkColor
  End If

  Dim r As Rectangle = Me.ClientRectangle
  Dim path As Drawing2D.GraphicsPath = RoundRectangle(r, Me.CornerRadius, Me.RoundCorners)

  Dim paintBrush As New Drawing2D.LinearGradientBrush(r, fillColor, shadeColor, Drawing2D.LinearGradientMode.Vertical)

  'We want a sharp change in the colors so define a Blend for the brush
  Dim b As New Drawing2D.Blend
  b.Positions = New Single() {0, 0.45, 0.55, 1}
  b.Factors = New Single() {0, 0, 1, 1}
  paintBrush.Blend = b

  'Draw the Button Background
  pevent.Graphics.FillPath(paintBrush, path)
  paintBrush.Dispose()

  '...and border
  Dim drawingPen As New Pen(darkDarkColor)
  pevent.Graphics.DrawPath(drawingPen, path)
  drawingPen.Dispose()

  'Get the Rectangle to be used for Content
  Dim inBounds As Boolean
  'We could use some Math to get this from the radius but I'm 
  'not great at Math so for the example this hack will suffice.
  While Not (inBounds) AndAlso r.Width >= 1 AndAlso r.Height >= 1
    inBounds = path.IsVisible(r.Left, r.Top) AndAlso _
    path.IsVisible(r.Right, r.Top) AndAlso _
    path.IsVisible(r.Left, r.Bottom) AndAlso _
    path.IsVisible(r.Right, r.Bottom)
    r.Inflate(-1, -1)

  End While

  contentRect = r

  End Sub

  Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
  DrawImage(e.Graphics)
  DrawText(e.Graphics)
  DrawFocus(e.Graphics)
  MyBase.OnPaint(e)
  End Sub

  Protected Overrides Sub OnParentBackColorChanged(ByVal e As System.EventArgs)
  MyBase.OnParentBackColorChanged(e)
  Me.Invalidate()
  End Sub

  Protected Overrides Sub OnParentBackgroundImageChanged(ByVal e As System.EventArgs)
  MyBase.OnParentBackgroundImageChanged(e)
  Me.Invalidate()
  End Sub

  #End Region

  #Region " Internal Draw Methods "

  Private Sub DrawImage(ByVal g As Graphics)

  If Me.ImageList Is Nothing OrElse Me.ImageIndex = -1 Then Return
  If Me.ImageIndex < 0 OrElse Me.ImageIndex >= Me.ImageList.Images.Count Then Return

  Dim _Image As Image = Me.ImageList.Images(Me.ImageIndex)

  Dim pt As Point

  Select Case Me.ImageAlign

    Case ContentAlignment.TopLeft
    pt.X = contentRect.Left
    pt.Y = contentRect.Top

    Case ContentAlignment.TopCenter
    pt.X = (Width - _Image.Width) \ 2
    pt.Y = contentRect.Top

    Case ContentAlignment.TopRight
    pt.X = contentRect.Right - _Image.Width
    pt.Y = contentRect.Top

    Case ContentAlignment.MiddleLeft
    pt.X = contentRect.Left
    pt.Y = (Height - _Image.Height) \ 2

    Case ContentAlignment.MiddleCenter
    pt.X = (Width - _Image.Width) \ 2
    pt.Y = (Height - _Image.Height) \ 2

    Case ContentAlignment.MiddleRight
    pt.X = contentRect.Right - _Image.Width
    pt.Y = (Height - _Image.Height) \ 2

    Case ContentAlignment.BottomLeft
    pt.X = contentRect.Left
    pt.Y = contentRect.Bottom - _Image.Height

    Case ContentAlignment.BottomCenter
    pt.X = (Width - _Image.Width) \ 2
    pt.Y = contentRect.Bottom - _Image.Height

    Case ContentAlignment.BottomRight
    pt.X = contentRect.Right - _Image.Width
    pt.Y = contentRect.Bottom - _Image.Height

  End Select

  If Me.ButtonState = CustomButtonState.Pressed Then
    pt.Offset(1, 1)
  End If

  If Me.Enabled Then
    Me.ImageList.Draw(g, pt, Me.ImageIndex)
  Else
    ControlPaint.DrawImageDisabled(g, _Image, pt.X, pt.Y, Me.BackColor)
  End If

  End Sub

  Private Sub DrawText(ByVal g As Graphics)

  Dim TextBrush As New SolidBrush(Me.ForeColor)

  Dim R As RectangleF = RectangleF.op_Implicit(contentRect)

  If Not Me.Enabled Then TextBrush.Color = SystemColors.GrayText

  Dim sf As New StringFormat(StringFormatFlags.NoWrap Or StringFormatFlags.NoClip)

  If ShowKeyboardCues Then
    sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show
  Else
    sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide
  End If

  Select Case Me.TextAlign
    Case ContentAlignment.TopLeft
    sf.Alignment = StringAlignment.Near
    sf.LineAlignment = StringAlignment.Near

    Case ContentAlignment.TopCenter
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Near

    Case ContentAlignment.TopRight
    sf.Alignment = StringAlignment.Far
    sf.LineAlignment = StringAlignment.Near

    Case ContentAlignment.MiddleLeft
    sf.Alignment = StringAlignment.Near
    sf.LineAlignment = StringAlignment.Center

    Case ContentAlignment.MiddleCenter
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Center

    Case ContentAlignment.MiddleRight
    sf.Alignment = StringAlignment.Far
    sf.LineAlignment = StringAlignment.Center

    Case ContentAlignment.BottomLeft
    sf.Alignment = StringAlignment.Near
    sf.LineAlignment = StringAlignment.Far

    Case ContentAlignment.BottomCenter
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Far

    Case ContentAlignment.BottomRight
    sf.Alignment = StringAlignment.Far
    sf.LineAlignment = StringAlignment.Far

  End Select

  If Me.ButtonState = CustomButtonState.Pressed Then
    R.Offset(1, 1)
  End If

  If Me.Enabled Then
    g.DrawString(Me.Text, Me.Font, TextBrush, R, sf)
  Else
    ControlPaint.DrawStringDisabled(g, Me.Text, Me.Font, Me.BackColor, R, sf)
  End If

  End Sub

  Private Sub DrawFocus(ByVal g As Graphics)
  Dim r As Rectangle = contentRect
  r.Inflate(1, 1)
  If Me.Focused AndAlso Me.ShowFocusCues AndAlso Me.TabStop Then
    ControlPaint.DrawFocusRectangle(g, r, Me.ForeColor, Me.BackColor)
  End If

  End Sub

  #End Region

  #Region " Helper Methods "

  Private Function RoundRectangle(ByVal r As Rectangle, ByVal radius As Int32, ByVal corners As Corners) As System.Drawing.Drawing2D.GraphicsPath

  'Make sure the Path fits inside the rectangle
  r.Width -= 1
  r.Height -= 1

  'Scale the radius if it's too large to fit.
  If (radius > (r.Width)) Then radius = r.Width
  If (radius > (r.Height)) Then radius = r.Height

  Dim path As New System.Drawing.Drawing2D.GraphicsPath

  If radius <= 0 Then
    path.AddRectangle(r)
  Else
    If (corners And corners.TopLeft) = corners.TopLeft Then
    path.AddArc(r.Left, r.Top, radius, radius, 180, 90)
    Else
    path.AddLine(r.Left, r.Top, r.Left, r.Top)
    End If

    If (corners And corners.TopRight) = corners.TopRight Then
    path.AddArc(r.Right - radius, r.Top, radius, radius, 270, 90)
    Else
    path.AddLine(r.Right, r.Top, r.Right, r.Top)
    End If


    If (corners And corners.BottomRight) = corners.BottomRight Then
    path.AddArc(r.Right - radius, r.Bottom - radius, radius, radius, 0, 90)
    Else
    path.AddLine(r.Right, r.Bottom, r.Right, r.Bottom)
    End If

    If (corners And corners.BottomLeft) = corners.BottomLeft Then
    path.AddArc(r.Left, r.Bottom - radius, radius, radius, 90, 90)
    Else
    path.AddLine(r.Left, r.Bottom, r.Left, r.Bottom)
    End If

    path.CloseFigure()

  End If

  Return path

  End Function

  'The ControlPaint Class has methods to Lighten and Darken Colors, but they return a Solid Color.
  'The Following 2 methods return a modified color with original Alpha.
  Private Function DarkenColor(ByVal colorIn As Color, ByVal percent As Int32) As Color
  'This method returns Black if you Darken by 100%

  If percent < 0 OrElse percent > 100 Then
    Throw New ArgumentOutOfRangeException("percent")
  End If

  Dim a, r, g, b As Int32

  a = colorIn.A
  r = colorIn.R - CInt((colorIn.R / 100) * percent)
  g = colorIn.G - CInt((colorIn.G / 100) * percent)
  b = colorIn.B - CInt((colorIn.B / 100) * percent)

  Return Color.FromArgb(a, r, g, b)

  End Function

  Private Function LightenColor(ByVal colorIn As Color, ByVal percent As Int32) As Color

  'This method returns White if you lighten by 100%
  If percent < 0 OrElse percent > 100 Then
    Throw New ArgumentOutOfRangeException("percent")
  End If

  Dim a, r, g, b As Int32

  a = colorIn.A
  r = colorIn.R + CInt(((255 - colorIn.R) / 100) * percent)
  g = colorIn.G + CInt(((255 - colorIn.G) / 100) * percent)
  b = colorIn.B + CInt(((255 - colorIn.B) / 100) * percent)

  Return Color.FromArgb(a, r, g, b)
  End Function

  #End Region

  Private Sub OnStateChange(ByVal e As EventArgs)
  Static currentState As CustomButtonState
  'Repaint the button only if the state has actually changed
  If Me.ButtonState = currentState Then Return
  currentState = Me.ButtonState
  Me.Invalidate()
  End Sub

  End Class

  #Region " Custom TypeEditor for RoundCorners property "

  <PermissionSetAttribute(SecurityAction.LinkDemand, Unrestricted:=True), PermissionSetAttribute(SecurityAction.InheritanceDemand, Unrestricted:=True)> _
  Public Class RoundCornersEditor
  Inherits UITypeEditor

  Public Overloads Overrides Function GetEditStyle(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.Drawing.Design.UITypeEditorEditStyle
  Return UITypeEditorEditStyle.DropDown
  End Function

  Public Overloads Overrides Function EditValue(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal provider As System.IServiceProvider, ByVal value As Object) As Object

  If Not TypeOf value Is Corners OrElse _
    provider Is Nothing Then
    Return value
  End If

  Dim edSvc As IWindowsFormsEditorService = CType(provider.GetService(GetType(IWindowsFormsEditorService)), IWindowsFormsEditorService)
  If Not (edSvc Is Nothing) Then
    Dim lb As New CheckedListBox
    lb.BorderStyle = System.Windows.Forms.BorderStyle.None
    lb.CheckOnClick = True

    lb.Items.Add("TopLeft", (DirectCast(context.Instance, CustomButton).RoundCorners And Corners.TopLeft) = Corners.TopLeft)
    lb.Items.Add("TopRight", (DirectCast(context.Instance, CustomButton).RoundCorners And Corners.TopRight) = Corners.TopRight)
    lb.Items.Add("BottomLeft", (DirectCast(context.Instance, CustomButton).RoundCorners And Corners.BottomLeft) = Corners.BottomLeft)
    lb.Items.Add("BottomRight", (DirectCast(context.Instance, CustomButton).RoundCorners And Corners.BottomRight) = Corners.BottomRight)

    edSvc.DropDownControl(lb)
    Dim cornerFlags As Corners
    For Each o As Object In lb.CheckedItems
    cornerFlags = cornerFlags Or DirectCast([Enum].Parse(GetType(Corners), o.ToString), Corners)
    Next
    lb.Dispose()
    edSvc.CloseDropDown()
    Return cornerFlags
  End If

  Return value

  End Function

  End Class

  #End Region

  End Namespace

CSharp Sample:

using System;
  using System.ComponentModel;
  using System.Drawing;
  using System.Drawing.Design;
  using System.Windows.Forms;
  using System.Windows.Forms.Design;
  using System.Security.Permissions;

  namespace Dotnetrix.Samples.CSharp
  {
    [System.Flags]
    public enum Corners
    {
    None = 0,
    TopLeft = 1,
    TopRight = 2,
    BottomLeft = 4,
    BottomRight = 8,
    All = TopLeft | TopRight | BottomLeft | BottomRight
    }


    public enum CustomButtonState
    {
    Normal = 1,
    Hot,
    Pressed,
    Disabled,
    Focused
    }


    public class CustomButton : Control, IButtonControl
    {
    public CustomButton():base()
    {
      this.SetStyle(ControlStyles.Selectable | ControlStyles.StandardClick | ControlStyles.ResizeRedraw | ControlStyles.AllPaintingInWmPaint | ControlStyles.DoubleBuffer | ControlStyles.UserPaint | ControlStyles.SupportsTransparentBackColor, true);
    }


  #region Private Instance Variables

    private DialogResult m_DialogResult;
    private bool m_IsDefault;
    
    private int m_CornerRadius  = 8;
    private Corners m_RoundCorners;
    private CustomButtonState m_ButtonState = CustomButtonState.Normal;
    
    private ContentAlignment m_ImageAlign = ContentAlignment.MiddleCenter;
    private ContentAlignment m_TextAlign = ContentAlignment.MiddleCenter;
    private ImageList m_ImageList;
    private int m_ImageIndex = -1;
    
    private bool keyPressed;
    private Rectangle contentRect;

  #endregion

  #region IButtonControl Implementation

    [Category("Behavior"), DefaultValue(typeof(DialogResult), "None")]
    [Description("The dialog result produced in a modal form by clicking the button.")]
    public DialogResult DialogResult
    {
      get{return m_DialogResult;}
      set
      {
        if (Enum.IsDefined(typeof(DialogResult), value))
        m_DialogResult = value;
      }
    }
    

    public void NotifyDefault(bool value)
    {
      if (m_IsDefault != value)
        m_IsDefault = value;
      this.Invalidate();
    }


    public void PerformClick()
    {
      if (this.CanSelect)
        base.OnClick(EventArgs.Empty);
    }


  #endregion

  #region Properties

    //ButtonState
    [Browsable(false)]
    public CustomButtonState ButtonState
    {
      get{return m_ButtonState;}
    }


    //CornerRadius
    [Category("Appearance")]
    [DefaultValue(8)]
    [Description("Defines the radius of the controls RoundedCorners.")]
    public int CornerRadius
    {
      get{return m_CornerRadius;}
      set
      {
        if (m_CornerRadius == value) 
        return;
        m_CornerRadius = value;
        this.Invalidate();
      }
    }


    //DefaultSize
    protected override System.Drawing.Size DefaultSize
    {
      get{return new Size(75, 23);}
    }


    //IsDefault
    [Browsable(false)]
    public bool IsDefault
    {
      get{return m_IsDefault;}
    }


    //ImageList
    [Category("Appearance"), DefaultValue(typeof(ImageList), null)]
    [Description("The image list to get the image to display in the face of the control.")]
    public ImageList ImageList
    {
      get{return m_ImageList;}
      set
      {
        m_ImageList = value;
        this.Invalidate();
      }
    }


    //ImageIndex
    [Category("Appearance"), DefaultValue(-1)]
    [Description("The index of the image in the image list to display in the face of the control.")]
    [TypeConverter(typeof(ImageIndexConverter))]
    [Editor("System.Windows.Forms.Design.ImageIndexEditor, System.Design", typeof(System.Drawing.Design.UITypeEditor))]
    public int ImageIndex
    {
      get{return m_ImageIndex;}
      set
      {
        m_ImageIndex = value;
        this.Invalidate();
      }
    }


    //ImageAlign
    [Category("Appearance"), DefaultValue(typeof(ContentAlignment), "MiddleCenter")]
    [Description("The alignment of the image that will be displayed in the face of the control.")]
    public ContentAlignment ImageAlign
    {
      get{return m_ImageAlign;}
      set
      {
        if (!Enum.IsDefined(typeof(ContentAlignment), value))
        throw new InvalidEnumArgumentException("value", (int)value, typeof(ContentAlignment));
        if (m_ImageAlign == value )
        return;
        m_ImageAlign = value;
        this.Invalidate();
      }
    }


    //RoundCorners
    [Category("Appearance")]
    [DefaultValue(typeof(Corners), "None")]
    [Description("Gets/sets the corners of the control to round.")]
    [Editor(typeof(RoundCornersEditor), typeof(UITypeEditor))]
    [DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)]
    public Corners RoundCorners
    {
      get{return m_RoundCorners;}
      set
      {
        if (m_RoundCorners == value)
        return;
        m_RoundCorners = value;
        this.Invalidate();
      }
    }


    //TextAlign
    [Category("Appearance"), DefaultValue(typeof(ContentAlignment), "MiddleCenter")]
    [Description("The alignment of the text that will be displayed in the face of the control.")]
    public ContentAlignment TextAlign
    {
      get{return m_TextAlign;}
      set
      {
        if (!Enum.IsDefined(typeof(ContentAlignment), value))
        throw new InvalidEnumArgumentException("value", (int)value, typeof(ContentAlignment));
        if (m_TextAlign == value)
        return;
        m_TextAlign = value;
        this.Invalidate();
      }
    }


  #endregion

  #region Overriden Methods

    protected override void OnKeyDown(KeyEventArgs e)
    {
      base.OnKeyDown (e);
      if (e.KeyCode == Keys.Space)
      {
        keyPressed = true;
        m_ButtonState = CustomButtonState.Pressed;
      }
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnKeyUp(KeyEventArgs e)
    {
      base.OnKeyUp (e);
      if (e.KeyCode == Keys.Space)
      {
        if (this.ButtonState == CustomButtonState.Pressed)
        this.PerformClick();
        keyPressed = false;
        m_ButtonState = CustomButtonState.Focused;
      }
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnMouseEnter(EventArgs e)
    {
      base.OnMouseEnter (e);
      if (!keyPressed)
        m_ButtonState = CustomButtonState.Hot;
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnMouseLeave(EventArgs e)
    {
      base.OnMouseLeave (e);
      if (!keyPressed)
        if (this.IsDefault)
        m_ButtonState = CustomButtonState.Focused;
        else
        m_ButtonState = CustomButtonState.Normal;
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnMouseDown(MouseEventArgs e)
    {
      base.OnMouseDown (e);
      if (e.Button == MouseButtons.Left)
      {
        this.Focus();
        m_ButtonState = CustomButtonState.Pressed;
      }
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnMouseUp(MouseEventArgs e)
    {
      base.OnMouseUp (e);
      m_ButtonState = CustomButtonState.Focused;
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnMouseMove(MouseEventArgs e)
    {
      base.OnMouseMove (e);
      if (new Rectangle(Point.Empty, this.Size).Contains(e.X, e.Y) && e.Button == MouseButtons.Left)
        m_ButtonState = CustomButtonState.Pressed;
      else
      {
        if(keyPressed)
        return;
        m_ButtonState = CustomButtonState.Hot;
      }
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnGotFocus(EventArgs e)
    {
      base.OnGotFocus (e);
      m_ButtonState = CustomButtonState.Focused;
      this.NotifyDefault(true);
    }


    protected override void OnLostFocus(EventArgs e)
    {
      base.OnLostFocus (e);
      if (this.FindForm().Focused)
        this.NotifyDefault(false);
      m_ButtonState = CustomButtonState.Normal;
    }


    protected override void OnEnabledChanged(EventArgs e)
    {
      base.OnEnabledChanged (e);
      if (this.Enabled)
        m_ButtonState = CustomButtonState.Normal;
      else
        m_ButtonState = CustomButtonState.Disabled;
      OnStateChange(EventArgs.Empty);
    }


    protected override void OnClick(EventArgs e)
    {
      //Click gets fired before MouseUp which is handy
      if (this.ButtonState == CustomButtonState.Pressed)
      {
        this.Focus();
        this.PerformClick();
      }
    }


    protected override void OnDoubleClick(EventArgs e)
    {
      if (this.ButtonState == CustomButtonState.Pressed)
      {
        this.Focus();
        this.PerformClick();
      }
    }


    protected override bool ProcessMnemonic(char charCode)
    {
      if (IsMnemonic(charCode, this.Text))
      {
        base.OnClick(EventArgs.Empty);
        return true;
      }
      return base.ProcessMnemonic(charCode);
    }


    protected override void OnTextChanged(EventArgs e)
    {
      base.OnTextChanged(e);
      this.Invalidate();
    }


    protected override void OnPaintBackground(PaintEventArgs pevent)
    {
      //Simulate Transparency
      System.Drawing.Drawing2D.GraphicsContainer g = pevent.Graphics.BeginContainer();
      Rectangle translateRect = this.Bounds;
      pevent.Graphics.TranslateTransform(-this.Left, -this.Top);
      PaintEventArgs pe = new PaintEventArgs(pevent.Graphics, translateRect);
      this.InvokePaintBackground(this.Parent, pe);
      this.InvokePaint(this.Parent, pe);
      pevent.Graphics.ResetTransform();
      pevent.Graphics.EndContainer(g);

      pevent.Graphics.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.AntiAlias;

      Color shadeColor, fillColor; 
      Color darkColor = DarkenColor(this.BackColor, 10);
      Color darkDarkColor = DarkenColor(this.BackColor, 25);
      Color lightColor = LightenColor(this.BackColor, 25);
      Color lightLightColor = LightenColor(this.BackColor, 60);

      if (this.ButtonState == CustomButtonState.Hot)
      {
        fillColor = lightColor;
        shadeColor = darkDarkColor;
      }
      else if (this.ButtonState == CustomButtonState.Pressed)
      {
        fillColor = this.BackColor;
        shadeColor = this.BackColor;
      }
      else
      {
        fillColor = this.BackColor;
        shadeColor = darkDarkColor;
      }

      Rectangle r = this.ClientRectangle;
      System.Drawing.Drawing2D.GraphicsPath path = RoundRectangle(r, this.CornerRadius, this.RoundCorners);

      System.Drawing.Drawing2D.LinearGradientBrush paintBrush = new System.Drawing.Drawing2D.LinearGradientBrush(r, fillColor, shadeColor, System.Drawing.Drawing2D.LinearGradientMode.Vertical);

      //We want a sharp change in the colors so define a Blend for the brush
      System.Drawing.Drawing2D.Blend b = new System.Drawing.Drawing2D.Blend();
      b.Positions = new float[] {0, 0.45F, 0.55F, 1};
      b.Factors = new float[] {0, 0, 1, 1};
      paintBrush.Blend = b;

      //Draw the Button Background
      pevent.Graphics.FillPath(paintBrush, path);
      paintBrush.Dispose();

      //...and border
      Pen drawingPen = new Pen(darkDarkColor);
      pevent.Graphics.DrawPath(drawingPen, path);
      drawingPen.Dispose();

      //Get the Rectangle to be used for Content
      bool inBounds = false;
      //We could use some Math to get this from the radius but I'm 
      //not great at Math so for the example this hack will suffice.
      while (!inBounds && r.Width >= 1 && r.Height >= 1)
      {
        inBounds = path.IsVisible(r.Left, r.Top) &&
            path.IsVisible(r.Right, r.Top) &&
            path.IsVisible(r.Left, r.Bottom) &&
            path.IsVisible(r.Right, r.Bottom);
        r.Inflate(-1, -1);
        
      }

      contentRect = r;

    }


    protected override void OnPaint(PaintEventArgs e)
    {
      DrawImage(e.Graphics);
      DrawText(e.Graphics);
      DrawFocus(e.Graphics);
      base.OnPaint (e);
    }


    protected override void OnParentBackColorChanged(EventArgs e)
    {
      base.OnParentBackColorChanged (e);
      this.Invalidate();
    }


    protected override void OnParentBackgroundImageChanged(EventArgs e)
    {
      base.OnParentBackgroundImageChanged (e);
      this.Invalidate();
    }


  #endregion

  #region Internal Draw Methods

    private void DrawImage(Graphics g)
    {
      if (this.ImageList == null || this.ImageIndex == -1)
        return;
      if (this.ImageIndex < 0 || this.ImageIndex >= this.ImageList.Images.Count)
        return;

      Image _Image = this.ImageList.Images[this.ImageIndex];

      Point pt = Point.Empty;

      switch (this.ImageAlign)
      {
        case ContentAlignment.TopLeft:
        pt.X = contentRect.Left;
        pt.Y = contentRect.Top;
        break;

        case ContentAlignment.TopCenter:
        pt.X = (Width - _Image.Width) / 2;
        pt.Y = contentRect.Top;
        break;

        case ContentAlignment.TopRight:
        pt.X = contentRect.Right - _Image.Width;
        pt.Y = contentRect.Top;
        break;

        case ContentAlignment.MiddleLeft:
        pt.X = contentRect.Left;
        pt.Y = (Height - _Image.Height) / 2;
        break;

        case ContentAlignment.MiddleCenter:
        pt.X = (Width - _Image.Width) / 2;
        pt.Y = (Height - _Image.Height) / 2;
        break;

        case ContentAlignment.MiddleRight:
        pt.X = contentRect.Right - _Image.Width;
        pt.Y = (Height - _Image.Height) / 2;
        break;

        case ContentAlignment.BottomLeft:
        pt.X = contentRect.Left;
        pt.Y = contentRect.Bottom - _Image.Height;
        break;

        case ContentAlignment.BottomCenter:
        pt.X = (Width - _Image.Width) / 2;
        pt.Y = contentRect.Bottom - _Image.Height;
        break;

        case ContentAlignment.BottomRight:
        pt.X = contentRect.Right - _Image.Width;
        pt.Y = contentRect.Bottom - _Image.Height;
        break;
      }

      if (this.ButtonState == CustomButtonState.Pressed)
        pt.Offset(1, 1);

      if (this.Enabled)
        this.ImageList.Draw(g, pt, this.ImageIndex);
      else
        ControlPaint.DrawImageDisabled(g, _Image, pt.X, pt.Y, this.BackColor);

    }


    private void DrawText(Graphics g)
    {
      SolidBrush TextBrush = new SolidBrush(this.ForeColor);
      
      RectangleF R = (RectangleF)contentRect;
      
      if (!this.Enabled)
        TextBrush.Color = SystemColors.GrayText;
      
      StringFormat sf = new StringFormat(StringFormatFlags.NoWrap | StringFormatFlags.NoClip);
      
      if (ShowKeyboardCues)
        sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show;
      else
        sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide;
      
      switch (this.TextAlign)
      {
        case ContentAlignment.TopLeft:
        sf.Alignment = StringAlignment.Near;
        sf.LineAlignment = StringAlignment.Near;
        break;

        case ContentAlignment.TopCenter:
        sf.Alignment = StringAlignment.Center;
        sf.LineAlignment = StringAlignment.Near;
        break;

        case ContentAlignment.TopRight:
        sf.Alignment = StringAlignment.Far;
        sf.LineAlignment = StringAlignment.Near;
        break;
        
        case ContentAlignment.MiddleLeft:
        sf.Alignment = StringAlignment.Near;
        sf.LineAlignment = StringAlignment.Center;
        break;

        case ContentAlignment.MiddleCenter:
        sf.Alignment = StringAlignment.Center;
        sf.LineAlignment = StringAlignment.Center;
        break;

        case ContentAlignment.MiddleRight:
        sf.Alignment = StringAlignment.Far;
        sf.LineAlignment = StringAlignment.Center;
        break;

        case ContentAlignment.BottomLeft:
        sf.Alignment = StringAlignment.Near;
        sf.LineAlignment = StringAlignment.Far;
        break;

        case ContentAlignment.BottomCenter:
        sf.Alignment = StringAlignment.Center;
        sf.LineAlignment = StringAlignment.Far;
        break;

        case ContentAlignment.BottomRight:
        sf.Alignment = StringAlignment.Far;
        sf.LineAlignment = StringAlignment.Far;
        break;
      }

      if (this.ButtonState == CustomButtonState.Pressed)
        R.Offset(1, 1);

      if (this.Enabled)
        g.DrawString(this.Text, this.Font, TextBrush, R, sf);
      else
        ControlPaint.DrawStringDisabled(g, this.Text, this.Font, this.BackColor, R, sf);
      
    }


    private void DrawFocus(Graphics g)
    {
      Rectangle r = contentRect;
      r.Inflate(1, 1);
      if (this.Focused && this.ShowFocusCues && this.TabStop)
        ControlPaint.DrawFocusRectangle(g, r, this.ForeColor, this.BackColor);
    }

    
  #endregion

  #region Helper Methods

    private System.Drawing.Drawing2D.GraphicsPath RoundRectangle(Rectangle r, int radius, Corners corners)
    {
      //Make sure the Path fits inside the rectangle
      r.Width -= 1;
      r.Height -= 1;
      
      //Scale the radius if it's too large to fit.
      if (radius > (r.Width))
        radius = r.Width;
      if (radius > (r.Height))
        radius = r.Height;
      
      System.Drawing.Drawing2D.GraphicsPath path = new System.Drawing.Drawing2D.GraphicsPath();
      
      if (radius <= 0 )
        path.AddRectangle(r);
      else
        if ((corners & Corners.TopLeft) == Corners.TopLeft)
        path.AddArc(r.Left, r.Top, radius, radius, 180, 90);
      else
        path.AddLine(r.Left, r.Top, r.Left, r.Top);
      
      if ((corners & Corners.TopRight) == Corners.TopRight)
        path.AddArc(r.Right - radius, r.Top, radius, radius, 270, 90);
      else
        path.AddLine(r.Right, r.Top, r.Right, r.Top);
      
      if ((corners & Corners.BottomRight) == Corners.BottomRight)
        path.AddArc(r.Right - radius, r.Bottom - radius, radius, radius, 0, 90);
      else
        path.AddLine(r.Right, r.Bottom, r.Right, r.Bottom);
      
      if ((corners & Corners.BottomLeft) == Corners.BottomLeft)
        path.AddArc(r.Left, r.Bottom - radius, radius, radius, 90, 90);
      else
        path.AddLine(r.Left, r.Bottom, r.Left, r.Bottom);
      
      path.CloseFigure();

      return path;
    }


    //The ControlPaint Class has methods to Lighten and Darken Colors, but they return a Solid Color.
    //The Following 2 methods return a modified color with original Alpha.
    private Color DarkenColor(Color colorIn, int percent)
    {
      //This method returns Black if you Darken by 100%
      
      if (percent < 0 || percent > 100)
        throw new ArgumentOutOfRangeException("percent");
      
      int a, r, g, b;
      
      a = colorIn.A;
      r = colorIn.R - (int)((colorIn.R / 100f) * percent);
      g = colorIn.G - (int)((colorIn.G / 100f) * percent);
      b = colorIn.B - (int)((colorIn.B / 100f) * percent);
      
      return Color.FromArgb(a, r, g, b);
    }
    

    private Color LightenColor(Color colorIn, int percent)
    {
      //This method returns White if you lighten by 100%
      
      if (percent < 0 || percent > 100)
        throw new ArgumentOutOfRangeException("percent");
      
      int a, r, g, b;
      
      a = colorIn.A;
      r = colorIn.R + (int)(((255f - colorIn.R) / 100f) * percent);
      g = colorIn.G + (int)(((255f - colorIn.G) / 100f) * percent);
      b = colorIn.B + (int)(((255f - colorIn.B) / 100f) * percent);
      
      return Color.FromArgb(a, r, g, b);
    }


  #endregion

    private CustomButtonState currentState; 
    private void OnStateChange(EventArgs e)
    {
      //Repaint the button only if the state has actually changed
      if (this.ButtonState == currentState)
        return;
      currentState = this.ButtonState;
      this.Invalidate();
    }


    }

  #region Custom TypeEditor for RoundCorners property

    [PermissionSetAttribute(SecurityAction.LinkDemand, Unrestricted=true)]
    [PermissionSetAttribute(SecurityAction.InheritanceDemand, Unrestricted=true)]
    public class RoundCornersEditor : UITypeEditor
    {
    public override UITypeEditorEditStyle GetEditStyle(ITypeDescriptorContext context)
    {
      return UITypeEditorEditStyle.DropDown;
    }
    
    public override Object EditValue(ITypeDescriptorContext context, IServiceProvider provider, Object value)
    {
      if (value != typeof(Corners) ||  provider == null)
        return value;
      
      IWindowsFormsEditorService edSvc = (IWindowsFormsEditorService)provider.GetService(typeof(IWindowsFormsEditorService));
      if (edSvc != null)
      {
        CheckedListBox lb = new CheckedListBox();
        lb.BorderStyle = BorderStyle.None;
        lb.CheckOnClick = true;
        
        lb.Items.Add("TopLeft", (((CustomButton)context.Instance).RoundCorners & Corners.TopLeft) == Corners.TopLeft);
        lb.Items.Add("TopRight", (((CustomButton)context.Instance).RoundCorners & Corners.TopRight) == Corners.TopRight);
        lb.Items.Add("BottomLeft", (((CustomButton)context.Instance).RoundCorners & Corners.BottomLeft) == Corners.BottomLeft);
        lb.Items.Add("BottomRight", (((CustomButton)context.Instance).RoundCorners & Corners.BottomRight) == Corners.BottomRight);

        edSvc.DropDownControl(lb);
        Corners cornerFlags = Corners.None;
        foreach (object o in lb.CheckedItems)
        {
        cornerFlags = cornerFlags | (Corners)Enum.Parse(typeof(Corners), o.ToString());
        }
        lb.Dispose();
        edSvc.CloseDropDown();
        return cornerFlags;
      }
      return value;
    }
    
    }

  #endregion

  }

by: Mick Dohertys'

Custom Tab Control With Cool Appearance

2011-07-23T13:23:00.000-07:00

03 Feb 2005 - New Bevel Appearance added and Draw Methods exposed for Inheritance Overrides.

20 Feb 2005 - Keyboard and mouse navigation improved to ignore/skip-over disabled TabPages.
Enabled property exposed on TabPageEX and modifications made so as to comply with Microsoft FxCop rules.
17 May 2005 - Bug Fix: SelectedIndexChanged was being fired twice when tab changed by mouse.
25 May 2005 - Bug Fix: When used with some 3rd party control libraries the TabAppearanceEX Enumeration was 'misplaced' by the IDE. This was due to nesting and so the enum has been moved. Also fixed a few new FXCop violations and added a custom designer to TabpageEX as the control misbehaved in VS2005 when using the standard tabpage designer.
11 June 2005 - Added InsertTabPage method and implemented the TabPageEX Hide() and Show() methods.
27 June 2005 - Added Visual Styles Support.

29 July 2005 - Added GroupBoxEX to the dll. Leave GroupBoxEX at FlatStyle.Standard as I have overridden the OnPaintBackGround() and OnPaint() methods to draw the control with Visual Style as necessary. Set the GroupBoxEX's BackColor property to Transparent and you should see the Themed Tabpage background (when it's on a themed tabpage). The only problem with this being that all controls added to the GroupBoxEX will inherit the Transparent Background color.
11 August 2005 - Bug Fix: Arrow Key navigated tabs even when Tabcontrol not focused, eg; when textbox as child of tabpage was selected.
24 March 2006 - Bug Fix: MouseDown and Click events were not being fired.
06 Dec 2006 - Bug Fix: Null Reference exception was raised randomly when changing TabPage Selection. Thanks to Sam J Martinez for his help in locating and fixing this bug.
22 March 2007 - Bug Fix: ArgumentException raised occasionally.
20 July 2007 - Bug Fix: Undo/Redo now works on the Design Surface.
21 October 2008 - Bug Fix: SelectedTabFontStyle defaulted to Regular rather than Controls Font.Style.
This control is a more complete version of the one shown in my Tips page. Unlike the TabControl from which it Inherits, you can set any Alignment value with any Appearance value.
An OnSelectedIndexChanging Method has been added to the TabControl so that you may cancel selection of a TabPage.
Disabled Tabs do not recieve a Click event.
Set AllowDrop and AllowTabDrag to True and you are able to drag TabItems around at runtime.
Mnemonic support has been added.
You may have to play around with Padding if you use non standard Font.

Download Here...
From: Mick Doherty

Custom Menu Design With MenuSkinner

2011-07-23T13:20:00.000-07:00

Drop a MenuSkin component on your form and standard menu items are extended with icon and font properties.

The Menuskin component has several properties with which you can modify the menus appearance.

Click Here To Download (By Mick Doherty)

Create Menu Bar Like Office style Menu

2011-07-22T10:26:00.000-07:00

A complete ownerdraw menu class with RightToLeft support.
Add this class to your project and after designing the layout of your standard menu, use search and replace to replace 'System.Windows.Forms.MenuItem' with 'MenuItemEx'. You will then be able to assign colors and icons to each menu item in the project. Use this class for MDI projects or download the MenuSkinner component in the Controls section. The MenuSkinner is much simpler to use but there is a problem with Menus that unMerge which I have yet to find a solution for.

VB net Sample:

Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Environment
Imports System.ComponentModel.Design
Public Class MenuitemEx
    Inherits MenuItem
#Region " Windows Form Designer generated code "
    Public Sub New()
        MyBase.New()
        'This call is required by the Windows Form Designer.
        InitializeComponent()
        'Add any initialization after the InitializeComponent() call
    End Sub
    'UserControl overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer
    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        '
        'MenuitemEx
        '
        Me.OwnerDraw = True
    End Sub
#End Region
#Region " XP Related InterOp "
    <DllImport("uxtheme.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Function IsAppThemed() As Boolean
    End Function
    <DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
    Private Shared Function GetSysColor(ByVal index As Integer) As Integer
    End Function
    Private Const COLOR_MENUBAR As Integer = 30
#End Region
#Region " Custom Constructors "
    Sub New(ByVal caption As String)
        MyClass.New(caption, Nothing)
    End Sub
    Sub New(ByVal caption As String, ByVal [image] As Image)
        MyBase.New()
        m_Image = [image]
        Me.Text = caption
    End Sub
#End Region
#Region " Private Instance Variables "
    Private m_Image As Image = Nothing
    Private m_ItemColors As MenuItemColors = New MenuItemColors(Me)
    Private m_Font As Font = SystemInformation.MenuFont
    Private m_HiliteStyle As HiliteStyles = HiliteStyles.Flat
    Private m_ImageIndex As Integer = -1
    Private m_Imagelist As ImageList = Nothing
    Private m_ShadowImage As Image
    Private m_IsXPThemed As Boolean = IsXPThemed
    '  ________________1______________
    ' |    |  _________3_________     |
    ' |  2 | |_________4_________|    |
    ' |____|__________________________|
    Private m_ItemRect As Rectangle     '1
    Private m_ImageRect As Rectangle    '2
    Private m_BackRect As Rectangle     '3
    Private m_TextRect As Rectangle     '4
#End Region
#Region " Custom Enum "
    Public Enum HiliteStyles
        [Flat]
        [Shadow]
        [Box]
    End Enum
#End Region
#Region " Properties "
    'Image
    <Category("Appearance"), DefaultValue(GetType(Image), Nothing)> _
    Public Property Image() As Image
        Get
            If IsNothing(m_Imagelist) = False Then
                If m_ImageIndex > -1 Then
                    Return m_Imagelist.Images(m_ImageIndex)
                End If
            End If
            Return m_Image
        End Get
        Set(ByVal Value As Image)
            m_Image = Value
        End Set
    End Property
    'ImageList
    <Category("Appearance"), DefaultValue(GetType(ImageList), Nothing)> _
    Public Property ImageList() As ImageList
        Get
            Return m_Imagelist
        End Get
        Set(ByVal Value As ImageList)
            m_Imagelist = Value
        End Set
    End Property
    'ImageIndex
    <Category("Appearance"), DefaultValue(-1), _
    TypeConverter(GetType(ImageIndexConverter)), _
    Editor("System.Windows.Forms.Design.ImageIndexEditor, System.Design", GetType(System.Drawing.Design.UITypeEditor))> _
    Public Property ImageIndex() As Integer
        Get
            If m_Imagelist Is Nothing Then
                m_ImageIndex = -1
            End If
            Return m_ImageIndex
        End Get
        Set(ByVal Value As Integer)
            m_ImageIndex = Value
        End Set
    End Property
    'ItemColors
    <Category("Appearance"), DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    Public Property ItemColors() As MenuItemColors
        Get
            Return m_ItemColors
        End Get
        Set(ByVal Value As MenuItemColors)
            m_ItemColors = Value
        End Set
    End Property
    'Font
    <Category("Appearance"), _
    Description("The Font that displays in this MenuItem.")> _
    Public Property Font() As Font
        Get
            Return m_Font
        End Get
        Set(ByVal Value As Font)
            If Not m_Font.Equals(Value) Then
                If IsNothing(Value) Then
                    ResetFont()
                Else
                    m_Font = Value
                End If
            End If
        End Set
    End Property
    Private Function ShouldSerializeFont() As Boolean
        Return Not (m_Font.Equals(SystemInformation.MenuFont))
    End Function
    Private Sub ResetFont()
        m_Font = SystemInformation.MenuFont
    End Sub
    'HiliteStyle
    <Category("Behavior"), DefaultValue(GetType(HiliteStyles), "Flat")> _
    Public Property HiliteStyle() As HiliteStyles
        Get
            Return m_HiliteStyle
        End Get
        Set(ByVal Value As HiliteStyles)
            m_HiliteStyle = Value
        End Set
    End Property
    Private ReadOnly Property IsXPThemed() As Boolean
        Get
            If OSVersion.Version.Major >= 5 And OSVersion.Version.Minor >= 1 Then
                Return IsAppThemed()
            End If
        End Get
    End Property
    Private ReadOnly Property RTLMenu() As Boolean
        Get
            If IsNothing(Me.GetContextMenu) Then
                Return CBool(Me.GetMainMenu.RightToLeft)
            Else
                Return CBool(Me.GetContextMenu.RightToLeft)
            End If
        End Get
    End Property
#End Region
#Region " Expandable Object Convertor "
    'MenuItemColors
    <TypeConverter(GetType(MenuItemColorsStringConverter))> _
    Public Class MenuItemColors
        Public Sub New(ByVal parent As MenuitemEx)
            owner = Parent
        End Sub
        Private Owner As MenuitemEx = Nothing
        Private m_StartColor As Color = Color.Ivory
        Private m_EndColor As Color = Color.PowderBlue
        Private m_ImageBarColor As Color = Color.PowderBlue
        Private m_HiliteColor As Color = Color.Moccasin
        Private m_HiliteBorderColor As Color = Color.Coral
        Private m_ForeColor As Color = Color.OrangeRed
        'GradientStartColor
        <DefaultValue(GetType(Color), "Ivory")> _
        Public Property GradientStartColor() As Color
            Get
                Return m_StartColor
            End Get
            Set(ByVal Value As Color)
                m_StartColor = Value
                updateProperties()
            End Set
        End Property
        'GradientEndColor
        <DefaultValue(GetType(Color), "PowderBlue")> _
        Public Property GradientEndColor() As Color
            Get
                Return m_EndColor
            End Get
            Set(ByVal Value As Color)
                m_EndColor = Value
                updateProperties()
            End Set
        End Property
        'ImageBarColor
        <DefaultValue(GetType(Color), "PowderBlue")> _
        Public Property ImageBarColor() As Color
            Get
                Return m_ImageBarColor
            End Get
            Set(ByVal Value As Color)
                m_ImageBarColor = Value
                updateProperties()
            End Set
        End Property
        'HiliteColor
        <DefaultValue(GetType(Color), "Moccasin")> _
        Public Property HiliteColor() As Color
            Get
                Return m_HiliteColor
            End Get
            Set(ByVal Value As Color)
                m_HiliteColor = Value
                updateProperties()
            End Set
        End Property
        'HiliteBorderColor
        <DefaultValue(GetType(Color), "Coral")> _
        Public Property HiliteBorderColor() As Color
            Get
                Return m_HiliteBorderColor
            End Get
            Set(ByVal Value As Color)
                m_HiliteBorderColor = Value
                updateProperties()
            End Set
        End Property
        'ForeColor
        <DefaultValue(GetType(Color), "OrangeRed")> _
        Public Property ForeColor() As Color
            Get
                Return m_ForeColor
            End Get
            Set(ByVal Value As Color)
                m_ForeColor = Value
                updateProperties()
            End Set
        End Property
        'This method is necessary for the property to be deserialized 
        'upon reset, and caused me the biggest headache.
        Sub updateProperties()
            If Owner Is Nothing Then Return
            Dim ccs As IComponentChangeService = CType(Owner.GetService(GetType(IComponentChangeService)), IComponentChangeService)
            If ccs Is Nothing Then Return
            ccs.OnComponentChanged(Owner.ItemColors, Nothing, Nothing, Nothing)
        End Sub
    End Class
    'MenuItemColorStringConvertor
    Friend Class MenuItemColorsStringConverter
        Inherits ExpandableObjectConverter
        Public Overloads Overrides Function ConvertTo(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal culture As System.Globalization.CultureInfo, ByVal value As Object, ByVal destinationType As System.Type) As Object
            If destinationType Is GetType(String) Then
                Return "MenuItem Colors"
            End If
            Return MyBase.ConvertTo(context, culture, value, destinationType)
        End Function
        Public Overloads Overrides Function GetPropertiesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
            Return True
        End Function
        Public Overloads Overrides Function GetProperties(ByVal context As System.ComponentModel.ITypeDescriptorContext, ByVal value As Object, ByVal attributes() As System.Attribute) As System.ComponentModel.PropertyDescriptorCollection
            If context.PropertyDescriptor.PropertyType.Name.Equals("MenuItemColors") Then
                Dim PropertyDescriptorCollection As System.ComponentModel.PropertyDescriptorCollection
                Dim propNames(5) As String
                PropertyDescriptorCollection = TypeDescriptor.GetProperties(GetType(MenuItemColors), attributes)
                propNames(0) = "ImageBarColor"
                propNames(1) = "GradientStartColor"
                propNames(2) = "GradientEndColor"
                propNames(3) = "HiliteColor"
                propNames(4) = "HiliteBorderColor"
                propNames(5) = "ForeColor"
                Return PropertyDescriptorCollection.Sort(propNames)
            End If
            Return MyBase.GetProperties(context, value, attributes)
        End Function
    End Class
#End Region
    Protected Overrides Sub OnMeasureItem(ByVal e As System.Windows.Forms.MeasureItemEventArgs)
        Dim ItemText As String = Text
        If ShowShortcut AndAlso Shortcut <> Shortcut.None Then
            Dim k As Keys = CType(Shortcut, Keys)
            ItemText += "  " + TypeDescriptor.GetConverter(GetType(Keys)).ConvertToString(k)
        End If
        Dim sf As New StringFormat(StringFormatFlags.MeasureTrailingSpaces)
        sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide
        e.ItemWidth = CInt(e.Graphics.MeasureString(ItemText, m_Font, SizeF.Empty, sf).Width)
        If Me.Text = "-" Then
            e.ItemHeight = 3
        ElseIf Not TypeOf Me.Parent Is MainMenu Then
            e.ItemHeight = 22
            e.ItemWidth += 44
        End If
    End Sub
    Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
        m_ItemRect = e.Bounds
        m_ImageRect = New Rectangle(e.Bounds.Location, New Size(24, e.Bounds.Height))
        m_BackRect = New Rectangle(e.Bounds.Left + 24, e.Bounds.Top, e.Bounds.Width - 24, e.Bounds.Height)
        m_TextRect = New Rectangle(e.Bounds.Left + 34, e.Bounds.Top, e.Bounds.Width - 52, e.Bounds.Height)
        If RTLMenu Then
            m_ImageRect.Offset(e.Bounds.Width - 24, 0)
            m_BackRect.Offset(-24, 0)
            m_TextRect.Offset(-14, 0)
        End If
        If Text = "-" Then
            DrawSideBar(e.Graphics)
            DrawBackground(e.Graphics)
            DrawSeparator(e.Graphics)
        ElseIf Not TypeOf Me.Parent Is MainMenu Then
            DrawSideBar(e.Graphics)
            DrawBackground(e.Graphics)
            If CBool(e.State And DrawItemState.Selected) Then DrawHilite(e.Graphics)
            DrawImage(e.Graphics, CBool(e.State And DrawItemState.Selected) And (m_HiliteStyle = HiliteStyles.Shadow))
            DrawText(e.Graphics, Not CBool(e.State And DrawItemState.NoAccelerator))
        Else
            m_TextRect = e.Bounds
            DrawMenuBar(e.Graphics)
            If CBool(e.State And DrawItemState.Selected) OrElse _
               CBool(e.State And DrawItemState.HotLight) Then
                DrawHilite(e.Graphics)
            End If
            DrawText(e.Graphics, Not CBool(e.State And DrawItemState.NoAccelerator))
        End If
    End Sub
#Region " Custom Methods "
    Sub DrawMenuBar(ByVal g As Graphics)
        Dim FillBrush As New SolidBrush(SystemColors.Menu)
        If m_IsXPThemed Then
            FillBrush.Color = ColorTranslator.FromOle(GetSysColor(COLOR_MENUBAR))
        End If
        g.FillRectangle(FillBrush, m_ItemRect)
        FillBrush.Dispose()
    End Sub
    Sub DrawSeparator(ByVal g As Graphics)
        Dim DrawingPen As New Pen(m_ItemColors.ForeColor)
        Dim startpoint As New Point(m_TextRect.Left, m_TextRect.Top + 1)
        Dim endpoint As New Point(m_BackRect.Right - 1, m_BackRect.Top + 1)
        If RTLMenu Then
            startpoint.Offset(-20, 0)
            endpoint.Offset(-10, 0)
        End If
        g.DrawLine(DrawingPen, startpoint, endpoint)
        DrawingPen.Dispose()
    End Sub
    Sub DrawSideBar(ByVal g As Graphics)
        Dim DrawingBrush As New SolidBrush(m_ItemColors.ImageBarColor)
        g.FillRectangle(DrawingBrush, m_ImageRect)
        DrawingBrush.Dispose()
    End Sub
    Sub DrawBackground(ByVal g As Graphics)
        Dim FillBrush As Brush
        If RTLMenu Then
            FillBrush = New Drawing2D.LinearGradientBrush(m_BackRect, m_ItemColors.GradientEndColor, m_ItemColors.GradientStartColor, Drawing2D.LinearGradientMode.Horizontal)
        Else
            FillBrush = New Drawing2D.LinearGradientBrush(m_BackRect, m_ItemColors.GradientStartColor, m_ItemColors.GradientEndColor, Drawing2D.LinearGradientMode.Horizontal)
        End If
        g.FillRectangle(FillBrush, m_BackRect)
        FillBrush.Dispose()
    End Sub
    Sub DrawHilite(ByVal g As Graphics)
        Dim FillBrush As New SolidBrush(m_ItemColors.HiliteColor)
        Dim HiliteRect As Rectangle = m_ItemRect
        If m_HiliteStyle = HiliteStyles.Box AndAlso Not TypeOf Me.Parent Is MainMenu Then
            HiliteRect.Width -= 24
            If Not RTLMenu Then HiliteRect.Offset(24, 0)
            BoxImage(g)
        End If
        g.FillRectangle(FillBrush, HiliteRect)
        Dim BorderPen As New Pen(m_ItemColors.HiliteBorderColor)
        HiliteRect.Width -= 1
        HiliteRect.Height -= 1
        g.DrawRectangle(BorderPen, HiliteRect)
        FillBrush.Dispose()
        BorderPen.Dispose()
    End Sub
    Sub BoxImage(ByVal g As Graphics)
        If Image Is Nothing Then Return
        Dim BorderPen As New Pen(ControlPaint.LightLight(m_ItemColors.ImageBarColor))
        Dim BorderRect As Rectangle = m_ImageRect
        BorderRect.Inflate(-1, -1)
        g.DrawRectangle(BorderPen, BorderRect)
        BorderPen.Color = ControlPaint.Dark(m_ItemColors.ImageBarColor)
        g.DrawLine(BorderPen, BorderRect.Right - 1, BorderRect.Top, BorderRect.Right - 1, BorderRect.Bottom)
        g.DrawLine(BorderPen, BorderRect.Left, BorderRect.Bottom, BorderRect.Right - 1, BorderRect.Bottom)
        BorderPen.Dispose()
    End Sub
    Sub DrawText(ByVal g As Graphics, ByVal ShowHotKey As Boolean)
        Dim TextBrush As New SolidBrush(m_ItemColors.ForeColor)
        Dim sf As New StringFormat
        sf.LineAlignment = StringAlignment.Center
        sf.Alignment = StringAlignment.Near
        If ShowHotKey Then
            sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show
        Else
            sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide
        End If        
        Dim ShorCutText As String
        If ShowShortcut AndAlso Shortcut <> Shortcut.None Then
            Dim k As Keys = CType(Shortcut, Keys)
            ShorCutText = TypeDescriptor.GetConverter(GetType(Keys)).ConvertToString(k)
        End If
        If RTLMenu Then
            sf.FormatFlags = StringFormatFlags.DirectionRightToLeft
        End If
        If TypeOf Me.Parent Is MainMenu Then sf.Alignment = StringAlignment.Center
        If Me.Enabled Then
            g.DrawString(Text, m_Font, TextBrush, RectangleF.op_Implicit(m_TextRect), sf)
            sf.Alignment = StringAlignment.Far
            g.DrawString(ShorCutText, m_Font, TextBrush, RectangleF.op_Implicit(m_TextRect), sf)
        Else
            ControlPaint.DrawStringDisabled(g, Text, m_Font, m_ItemColors.GradientEndColor, RectangleF.op_Implicit(m_TextRect), sf)
            sf.Alignment = StringAlignment.Far
            ControlPaint.DrawStringDisabled(g, ShorCutText, m_Font, m_ItemColors.GradientEndColor, RectangleF.op_Implicit(m_TextRect), sf)
        End If
        TextBrush.Dispose()
        sf.Dispose()
    End Sub
    Sub DrawImage(ByVal g As Graphics, ByVal Shadow As Boolean)
        If Image Is Nothing Then Return
        Dim Iconrect As Rectangle = m_ImageRect
        Iconrect.Inflate(-4, -4)
        If Shadow Then
            If m_ShadowImage Is Nothing Then
                m_ShadowImage = New Bitmap(CreateShadowImage(Image))
            End If
            Iconrect.Offset(1, 1)
            g.DrawImage(m_ShadowImage, Iconrect)
            Iconrect.Offset(-2, -2)
        End If
        g.DrawImage(Image, Iconrect)
    End Sub
    Function CreateShadowImage(ByVal bmp As Image) As Bitmap
        Dim shadow As New Bitmap(bmp, 16, 16)
        Dim ShadowColor As Color = ControlPaint.Dark(m_ItemColors.HiliteColor)
        For x As Integer = 0 To 15
            For y As Integer = 0 To 15
                If shadow.GetPixel(x, y).A > 32 Then
                    shadow.SetPixel(x, y, ShadowColor)
                End If
            Next
        Next
        Return shadow
    End Function
#End Region
    'didn't have to do this in C#
    Friend Shadows Function GetService(ByVal service As System.Type) As Object
        Return MyBase.GetService(service)
    End Function
End Class

CSharp Sample:

using System;
using System.Collections;
using System.ComponentModel;
using System.Drawing;
using System.Data;
using System.Windows.Forms;
using System.Drawing.Drawing2D;
using System.ComponentModel.Design;
using System.Runtime.InteropServices;
namespace Dotnetrix_Samples
{
    /// <summary>
    /// Summary description for MenuItemEx.
    /// </summary>
    public class MenuItemEx : System.Windows.Forms.MenuItem
    {
        /// <summary> 
        /// Required designer variable.
        /// </summary>
        private System.ComponentModel.Container components = null;
        public MenuItemEx()
        {
            // This call is required by the Windows.Forms Form Designer.
            InitializeComponent();
            // TODO: Add any initialization after the InitializeComponent call
            m_ItemColors = new MenuItemColors(this);    
        }

        /// <summary> 
        /// Clean up any resources being used.
        /// </summary>
        protected override void Dispose( bool disposing )
        {
            if( disposing )
            {
                if(components != null)
                {
                    components.Dispose();
                }
            }
            base.Dispose( disposing );
        }

        #region Component Designer generated code
        /// <summary> 
        /// Required method for Designer support - do not modify 
        /// the contents of this method with the code editor.
        /// </summary>
        private void InitializeComponent()
        {
            // 
            // MenuItemEx
            // 
            this.OwnerDraw = true;
        }
        #endregion
        #region XP Related InterOp
        [DllImport("uxtheme.dll", CallingConvention=CallingConvention.Cdecl)]
        private static extern bool IsAppThemed();
        
        [DllImport("user32.dll", CallingConvention=CallingConvention.Cdecl)]
        private static extern int GetSysColor(int index);
        private const int COLOR_MENUBAR = 30;
        #endregion
        #region Custom Constructors
        public MenuItemEx(String caption) : this(caption,(Image)null)
        {
        }

        public MenuItemEx(String caption,Image image): base()
        {
            m_Image = image;
            this.Text = caption;
        }
        
        #endregion
        
        #region Private Instance Variables
        private Image m_Image = null;
        private MenuItemColors m_ItemColors;
        private Font m_Font = SystemInformation.MenuFont;
        private HiliteStyles m_HiliteStyle = HiliteStyles.Flat;
        private int m_ImageIndex = -1;
        private ImageList m_Imagelist = null;
        private Image m_ShadowImage = null;
        
        private bool m_IsXPThemed = IsXPThemed;
        //  ________________1______________
        // |    |  _________3_________     |
        // |  2 | |_________4_________|    |
        // |____|__________________________|
        private Rectangle m_ItemRect;   //1
        private Rectangle m_ImageRect;  //2
        private Rectangle m_BackRect;   //3
        private Rectangle m_TextRect;   //4
        #endregion
        #region Custom Enum
        public enum HiliteStyles
        {
            Flat,
            Shadow,
            Box
        }

        #endregion
        #region Properties
        //Image
        [Category("Appearance"), DefaultValue(typeof(Image), null)]
        public Image image
        {
            get
            {
                if (m_Imagelist != null)
                {
                    if (m_ImageIndex > -1)
                        return m_Imagelist.Images[m_ImageIndex];
                }
                return m_Image;
            }
            set
            {
                m_Image = value;
            }
        }

        //ImageList
        [Category("Appearance"), DefaultValue(typeof(ImageList), null)]
        public ImageList imageList
        {
            get
            {
                return m_Imagelist;
            }
            set
            {
                m_Imagelist = value;
            }
        }

        //ImageIndex
        [Category("Appearance"), DefaultValue(-1), TypeConverter(typeof(ImageIndexConverter)),
        Editor("System.Windows.Forms.Design.ImageIndexEditor, System.Design", typeof(System.Drawing.Design.UITypeEditor))]
        public int ImageIndex
        {
            get
            {
                if (m_Imagelist == null)
                    m_ImageIndex = -1;
                return m_ImageIndex;
            }
            set
            {
                m_ImageIndex = value;
            }
        }

        //ItemColors
        [Category("Appearance"), DesignerSerializationVisibility(DesignerSerializationVisibility.Content)]
        [RefreshProperties(RefreshProperties.All)]
        public MenuItemColors ItemColors
        {
            get
            {
                return m_ItemColors;
            }
            set
            {
                m_ItemColors = value;
            }
        }

        //Font
        [Category("Appearance"),Description("The Font that displays in this MenuItem.")]
        public Font font
        {
            get
            {
                return m_Font;
            }
            set
            {
                if (!m_Font.Equals(value))
                {
                    if (value != null)
                        ResetFont();
                    else
                        m_Font = value;
                }
            }
        }
        private bool ShouldSerializeFont()
        {
            return !m_Font.Equals(SystemInformation.MenuFont);
        }
        private void ResetFont()
        {
            m_Font = SystemInformation.MenuFont;
        }

        //HiliteStyle
        [Category("Behavior"), DefaultValue(typeof(HiliteStyles), "Flat")]
        public HiliteStyles HiliteStyle 
        {
            get
            {
                return m_HiliteStyle;
            }
            set
            {
                m_HiliteStyle = value;
            }
        }

        private static bool IsXPThemed
        {
            get
            {
                if (Environment.OSVersion.Version.Major >= 5 && Environment.OSVersion.Version.Minor >= 1)
                    return IsAppThemed();
                return false;
            }
        }

        private bool RTLMenu
        {
            get
            {
                if (GetContextMenu() == null)                    
                    return (bool)(GetMainMenu().RightToLeft == RightToLeft.Yes);
                else
                    return (bool)(GetContextMenu().RightToLeft == RightToLeft.Yes);
                
            }
        }

        #endregion
        #region Expandable Object Convertor
        //MenuItemColors
        [TypeConverter(typeof(MenuItemColorsStringConverter))]
            public class MenuItemColors
        {
            public MenuItemColors(MenuItemEx parent) : base()
            {
                owner = parent;
            }
            private MenuItemEx owner;
            private Color m_StartColor = Color.Ivory;
            private Color m_EndColor = Color.PowderBlue;
            private Color m_ImageBarColor = Color.PowderBlue;
            private Color m_HiliteColor = Color.Moccasin;
            private Color m_HiliteBorderColor = Color.Coral;
            private Color m_ForeColor = Color.OrangeRed;
            //GradientStartColor
            [DefaultValue(typeof(Color), "Ivory")]
            public Color GradientStartColor
            {
                get
                {
                    return m_StartColor;
                }
                set
                {
                    m_StartColor = value;
                    updateProperties();
                }
            }
    
            //GradientEndColor
            [DefaultValue(typeof(Color), "PowderBlue")]
            public Color GradientEndColor
            {
                get
                {
                    return m_EndColor;
                }
                set
                {
                    m_EndColor = value;
                    updateProperties();
                }
            }
            
            //ImageBarColor
            [DefaultValue(typeof(Color), "PowderBlue")]
            public Color ImageBarColor
            {
                get
                {
                    return m_ImageBarColor;
                }
                set
                {
                    m_ImageBarColor = value;
                    updateProperties();
                }
            }

            //HiliteColor
            [DefaultValue(typeof(Color), "Moccasin")]
            public Color HiliteColor
            {
                get
                {
                    return m_HiliteColor;
                }
                set
                {
                    m_HiliteColor = value;
                    updateProperties();
                }
            }

            //HiliteBorderColor
            [DefaultValue(typeof(Color), "Coral")]
            public Color HiliteBorderColor
            {
                get
                {
                    return m_HiliteBorderColor;
                }
                set
                {
                    m_HiliteBorderColor = value;
                    updateProperties();
                }
            }

            //ForeColor
            [DefaultValue(typeof(Color), "OrangeRed")]
            public Color ForeColor
            {
                get
                {
                    return m_ForeColor;
                }
                set
                {
                    m_ForeColor = value;
                    updateProperties();
                }
            }

            //This method is necessary for the property to be deserialized 
            //upon reset, and caused me the biggest headache.
            void updateProperties()
            {
                if (owner == null) return;
                IComponentChangeService ccs = 
                    (IComponentChangeService)
                    owner.GetService(typeof(IComponentChangeService));
                if (ccs == null) return;
                ccs.OnComponentChanged(owner.ItemColors, null, null, null);
                
            }

        }

        //MenuItemColorStringConvertor
        internal class MenuItemColorsStringConverter : ExpandableObjectConverter
        {
            public override bool CanConvertFrom(ITypeDescriptorContext context, Type sourceType)
            {
                return false;
            }
 
            public override object ConvertTo(ITypeDescriptorContext context, System.Globalization.CultureInfo culture, object value, Type destinationType)
            {
                if (destinationType == typeof(string) && value is MenuItemColors)
                    return "MenuItem Colors";
                return base.ConvertTo (context, culture, value, destinationType);
            }
            
        
            public override bool GetPropertiesSupported(ITypeDescriptorContext context)
            {
                return true;
            }

            public override PropertyDescriptorCollection GetProperties(ITypeDescriptorContext context, object value, Attribute[] attributes) 
            {
                if (context.PropertyDescriptor.PropertyType.Name.Equals("MenuItemColors"))
                {
                    System.ComponentModel.PropertyDescriptorCollection propertyDescriptorCollection; 
                    string[] propNames = new string[5]; 
                    propertyDescriptorCollection = TypeDescriptor.GetProperties(typeof(MenuItemColors),attributes); 
                    propNames[0] = @"ImageBarColor"; 
                    propNames[1] = @"GradientStartColor";
                    propNames[2] = @"GradientEndColor";
                    propNames[3] = @"HiliteColor";
                    propNames[4] = @"HiliteBorderColor";
                    //for some reason setting the last element stops the Property
                    //expanding in C# but not in VB. Not that it matters since
                    //it's the only property left and so will be auto sorted.
                    //propNames[5] = @"ForeColor";
                    return propertyDescriptorCollection.Sort(propNames); 
                }
                return base.GetProperties(context, value, attributes);
            } 
 
        }

        #endregion
        
        protected override void OnMeasureItem(MeasureItemEventArgs e)
        {
            String ItemText = Text;
            if (ShowShortcut && Shortcut != Shortcut.None)
            {
                Keys k = (Keys)Shortcut;
                ItemText += "  " + TypeDescriptor.GetConverter(typeof(Keys)).ConvertToString(k);
            }
            
            StringFormat sf = new StringFormat(StringFormatFlags.MeasureTrailingSpaces);
            sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide;
            
            e.ItemWidth = (int)e.Graphics.MeasureString(ItemText, m_Font, SizeF.Empty, sf).Width;
            
            if (Text == "-")
                e.ItemHeight = 3;
            else if (this.Parent is MainMenu == false)
            {
                e.ItemHeight = 22;
                e.ItemWidth += 44;
            }
        }

        protected override void OnDrawItem(DrawItemEventArgs e)
        {
            m_ItemRect = e.Bounds;
            m_ImageRect = new Rectangle(e.Bounds.Location, new Size(24, e.Bounds.Height));
            m_BackRect = new Rectangle(e.Bounds.Left + 24, e.Bounds.Top, e.Bounds.Width - 24, e.Bounds.Height);
            m_TextRect = new Rectangle(e.Bounds.Left + 34, e.Bounds.Top, e.Bounds.Width - 52, e.Bounds.Height);
            if (RTLMenu)
            {
                m_ImageRect.Offset(e.Bounds.Width - 24, 0);
                m_BackRect.Offset(-24, 0);
                m_TextRect.Offset(-14, 0);
            }
            
            if (Text == "-")
            {
                DrawSideBar(e.Graphics);
                DrawBackground(e.Graphics);
                DrawSeparator(e.Graphics);
            }
            else if(Parent is MainMenu == false)
            {
                DrawSideBar(e.Graphics);
                DrawBackground(e.Graphics);
                if (System.Convert.ToBoolean(e.State & DrawItemState.Selected)) 
                    DrawHilite(e.Graphics);
                DrawImage(e.Graphics, ((System.Convert.ToBoolean(e.State & DrawItemState.Selected) && (m_HiliteStyle == HiliteStyles.Shadow))));
                DrawText(e.Graphics, !System.Convert.ToBoolean(e.State & DrawItemState.NoAccelerator));
            }
            else
            {
                m_TextRect = e.Bounds;
                DrawMenuBar(e.Graphics);
                if (System.Convert.ToBoolean(e.State & DrawItemState.Selected) || System.Convert.ToBoolean(e.State & DrawItemState.HotLight)) 
                    DrawHilite(e.Graphics);
                DrawText(e.Graphics, !System.Convert.ToBoolean(e.State & DrawItemState.NoAccelerator));
            }
            
        }

        #region Custom Methods
        void DrawMenuBar(Graphics g)
        {
            SolidBrush FillBrush = new SolidBrush(SystemColors.Menu);
            if (m_IsXPThemed)
                FillBrush.Color = ColorTranslator.FromOle(GetSysColor(COLOR_MENUBAR));
            g.FillRectangle(FillBrush, m_ItemRect);
            FillBrush.Dispose();
        }
        
        void DrawSeparator(Graphics g)
        {
            Pen DrawingPen = new Pen(m_ItemColors.ForeColor);
            Point startpoint = new Point(m_TextRect.Left, m_TextRect.Top + 1);
            Point endpoint = new Point(m_BackRect.Right - 1, m_BackRect.Top + 1);
            if (RTLMenu)
            {
                startpoint.Offset(-20, 0);
                endpoint.Offset(-10, 0);
            }
            g.DrawLine(DrawingPen, startpoint, endpoint);
            DrawingPen.Dispose();
        }

        void DrawSideBar(Graphics g)
        {
            SolidBrush DrawingBrush = new SolidBrush(m_ItemColors.ImageBarColor);
            g.FillRectangle(DrawingBrush, m_ImageRect);
            DrawingBrush.Dispose();
        }

        void DrawBackground(Graphics g)
        {
            Brush FillBrush;
            if (RTLMenu)
                FillBrush = new LinearGradientBrush(m_BackRect, m_ItemColors.GradientEndColor, m_ItemColors.GradientStartColor, LinearGradientMode.Horizontal);
            else
                FillBrush = new LinearGradientBrush(m_BackRect, m_ItemColors.GradientStartColor, m_ItemColors.GradientEndColor, LinearGradientMode.Horizontal);
            g.FillRectangle(FillBrush, m_BackRect);
            FillBrush.Dispose();
        }

        void DrawHilite(Graphics g)
        {
            SolidBrush FillBrush = new SolidBrush(m_ItemColors.HiliteColor);
            Rectangle HiliteRect = m_ItemRect;
            if (m_HiliteStyle == HiliteStyles.Box && Parent is MainMenu == false)
            {
                HiliteRect.Width -= 24;
                if (!RTLMenu)
                    HiliteRect.Offset(24, 0);
                BoxImage(g);
            }
            g.FillRectangle(FillBrush, HiliteRect);
            Pen BorderPen = new Pen(m_ItemColors.HiliteBorderColor);
            HiliteRect.Width -= 1;
            HiliteRect.Height -= 1;
            g.DrawRectangle(BorderPen, HiliteRect);
            FillBrush.Dispose();
            BorderPen.Dispose();
        }
        
        void BoxImage(Graphics g)
        {
            if (image == null) return;
            Pen BorderPen = new Pen(ControlPaint.LightLight(m_ItemColors.ImageBarColor));
            Rectangle BorderRect = m_ImageRect;
            BorderRect.Inflate(-1, -1);
            g.DrawRectangle(BorderPen, BorderRect);
            BorderPen.Color = ControlPaint.Dark(m_ItemColors.ImageBarColor);
            g.DrawLine(BorderPen, BorderRect.Right - 1, BorderRect.Top, BorderRect.Right - 1, BorderRect.Bottom);
            g.DrawLine(BorderPen, BorderRect.Left, BorderRect.Bottom, BorderRect.Right - 1, BorderRect.Bottom);
            BorderPen.Dispose();
        }

            void DrawText(Graphics g, bool ShowHotKey)
            {
                SolidBrush TextBrush = new SolidBrush(m_ItemColors.ForeColor);
                StringFormat sf = new StringFormat();
                sf.LineAlignment = StringAlignment.Center;
                sf.Alignment = StringAlignment.Near;
                if (ShowHotKey)
                    sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show;
                else
                    sf.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Hide;
            
                String ShorCutText = "";
            
                if (ShowShortcut && Shortcut != Shortcut.None)
                {
                    Keys k = (Keys)Shortcut;
                    ShorCutText = TypeDescriptor.GetConverter(typeof(Keys)).ConvertToString(k);
                }
            
                if (RTLMenu)
                    sf.FormatFlags = StringFormatFlags.DirectionRightToLeft;
            
                if (Parent is MainMenu)
                    sf.Alignment = StringAlignment.Center;
            
                if (Enabled)
                {
                    g.DrawString(Text, m_Font, TextBrush, RectangleF.op_Implicit(m_TextRect), sf);
                    sf.Alignment = StringAlignment.Far;
                    g.DrawString(ShorCutText, m_Font, TextBrush, RectangleF.op_Implicit(m_TextRect), sf);
                }
                else
                {
                    ControlPaint.DrawStringDisabled(g, Text, m_Font, m_ItemColors.GradientEndColor, RectangleF.op_Implicit(m_TextRect), sf);
                    sf.Alignment = StringAlignment.Far;
                    ControlPaint.DrawStringDisabled(g, ShorCutText, m_Font, m_ItemColors.GradientEndColor, RectangleF.op_Implicit(m_TextRect), sf);
                }
            
                TextBrush.Dispose();
                sf.Dispose();
            
            }

        void DrawImage(Graphics g, bool Shadow)
        {
            if (image == null) return;
            Rectangle Iconrect = m_ImageRect;
            Iconrect.Inflate(-4, -4);
            
            if (Shadow)
            {
                if (m_ShadowImage == null)
                    m_ShadowImage = new Bitmap(CreateShadowImage(image));
                Iconrect.Offset(1, 1);
                g.DrawImage(m_ShadowImage, Iconrect);
                Iconrect.Offset(-2, -2);
            }
            g.DrawImage(image, Iconrect);
            
        }

        Bitmap CreateShadowImage(Image bmp)
        {
            Bitmap shadow = new Bitmap(bmp, 16, 16);
            Color ShadowColor = ControlPaint.Dark(m_ItemColors.HiliteColor);
            
            for (int x = 0; x<=15; x++)
            {
                for (int y = 0;  y<=15; y++)
                {
                    if (shadow.GetPixel(x, y).A > 32)
                        shadow.SetPixel(x, y, ShadowColor);
                }
            }
            
            return shadow;
            
        }

        #endregion
    }
}

by: Mick Dohertys'

Add Menu Items on Top Left Window Icon (AKA System Menu)

2011-07-22T10:21:00.000-07:00

There is no DotNet Native way to manipulate the Window Menu. You must do it all via InterOp.
You can add existing Menuitems though.

The instructions shown here detail the steps necessary to achieve the menu as shown above.

VB net Sample:

'Create a New Windows Form Project.
'Add the following line of code before Public Class Form1:
'  Imports System.Runtime.InteropServices
'Add a ContextMenu to the Form and name it PopUpMenu.
'Add a MenuItem to PopUpMenu and call it sysPopUp.
'Add a MainMenu to the form and add a MenuItem to that which you should name MenuHelpAbout.
'Finally, Add the following code to the Form.

<DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function GetSystemMenu(ByVal hWnd As IntPtr, ByVal bRevert As Boolean) As IntPtr
End Function

<DllImport("user32.dll", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function AppendMenu(ByVal hMenu As IntPtr, ByVal uFlags As Int32, ByVal uIDNewItem As IntPtr, ByVal lpNewItem As String) As Boolean
End Function

<DllImport("user32", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function InsertMenu(ByVal hMenu As IntPtr, ByVal uPosition As Integer, ByVal uFlags As Integer, ByVal uIDNewItem As IntPtr, ByVal lpNewItem As String) As Boolean
End Function

<DllImport("user32", CallingConvention:=CallingConvention.Cdecl)> _
Private Shared Function SetMenuItemBitmaps(ByVal hMenu As IntPtr, ByVal uPosition As Integer, ByVal uFlags As Integer, ByVal hBitmapUnchecked As IntPtr, ByVal hBitmapChecked As IntPtr) As Boolean
End Function

Private Const MF_STRING As Integer = &H0
Private Const MF_SEPARATOR As Integer = &H800&
Private Const MF_BYCOMMAND As Integer = &H0
Private Const MF_BYPOSITION As Integer = &H400
Private Const MF_POPUP As Integer = &H10

Private Const WM_SYSCOMMAND As Integer = &H112

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AddSysMenuItems()
End Sub

Private Sub AddSysMenuItems()

    'Create a glyph for About MenuItem
    Dim bmpGlyph As New Bitmap(16, 16)
    Dim g As Graphics = Graphics.FromImage(bmpGlyph)
    g.Clear(Color.White)
    Dim sf As New StringFormat
    sf.LineAlignment = StringAlignment.Center
    sf.Alignment = StringAlignment.Center
    g.DrawString("?", New Font(FontFamily.GenericMonospace, 16, FontStyle.Bold, GraphicsUnit.Pixel), SystemBrushes.WindowText, New RectangleF(0, 0, 16, 16), sf)
    g.Dispose()

    'Get a gdi bitmap object from our bitmap.
    Dim hbmp As IntPtr = bmpGlyph.GetHbitmap
    bmpGlyph.Dispose()

    'Get the System Menus Handle.
    Dim hSysMenu As IntPtr = GetSystemMenu(Me.Handle, False)

    'Add a standard Separator Item.
    AppendMenu(hSysMenu, MF_SEPARATOR, IntPtr.Zero, Nothing)
    'Add an About Menu Item.
    AppendMenu(hSysMenu, MF_STRING, MenuHelpAbout.Handle, MenuHelpAbout.Text)
    'Add our Glyph to the About MenuItem.
    SetMenuItemBitmaps(hSysMenu, MenuHelpAbout.Handle.ToInt32, MF_BYCOMMAND, hbmp, hbmp)
    'Finally we'll insert an existing Popup Menu at position 0
    InsertMenu(hSysMenu, 0, MF_BYPOSITION Or MF_POPUP, PopupMenu.Handle, "Popup Item")
    'and a separator at position 1.
    InsertMenu(hSysMenu, 1, MF_BYPOSITION Or MF_SEPARATOR, IntPtr.Zero, Nothing)

End Sub

Private Sub MenuHelpAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuHelpAbout.Click
    Dim id As String
    If TypeOf sender Is Menu Then
        id = "Forms"
    Else
        id = "Window Menus"
    End If
    MessageBox.Show(String.Format("This message was initiated from the {0} About Menu", id))
End Sub

Private Sub sysPopUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sysPopUp.Click
    MessageBox.Show(DirectCast(sender, MenuItem).Text)
End Sub

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    'MenuItems added directly to the System menu do not fire the 
    'Menuitems default event, so we need to call this ourselves.
    'Popupmenus will fire their default events though as can be
    'seen by the fact that we do not call sysPopUp_Click() here.
    MyBase.WndProc(m)
    If m.Msg = WM_SYSCOMMAND Then
        If m.WParam.Equals(MenuHelpAbout.Handle) Then
            MenuHelpAbout_Click(Me, EventArgs.Empty)
        End If
    End If

End Sub

CSharp Sample:

//Create a New Windows Form Project.
//Add the following line of code before public class form1:
//  using System.Runtime.InteropServices;
//Add a ContextMenu to the Form and name it PopUpMenu.
//Add a MenuItem to PopUpMenu and call it sysPopUp.
//Add a MainMenu to the form and add a MenuItem to that which you should name MenuHelpAbout.
//Finally, Add the following code to the Form.
[DllImport("user32.dll", CallingConvention=CallingConvention.Cdecl)]
private static extern IntPtr GetSystemMenu(IntPtr hWnd , bool bRevert);
    
[DllImport("user32.dll", CallingConvention=CallingConvention.Cdecl)]
private static extern bool AppendMenu(IntPtr hMenu, Int32 uFlags, IntPtr uIDNewItem, String lpNewItem );
    
[DllImport("user32", CallingConvention=CallingConvention.Cdecl)]
private static extern bool InsertMenu(IntPtr hMenu, int uPosition, int uFlags, IntPtr uIDNewItem, String lpNewItem);
[DllImport("user32", CallingConvention=CallingConvention.Cdecl)]
private static extern bool SetMenuItemBitmaps(IntPtr hMenu, int uPosition, int uFlags, IntPtr hBitmapUnchecked, IntPtr hBitmapChecked);
private const int MF_STRING  = 0;
private const int MF_SEPARATOR = 0x800;
private const int MF_BYCOMMAND = 0;
private const int MF_BYPOSITION = 0x400;
private const int MF_POPUP = 0x10;
private System.Windows.Forms.ContextMenu PopUpMenu;
private System.Windows.Forms.MenuItem menuItem1;
private System.Windows.Forms.MenuItem menuItem2;
private System.Windows.Forms.MainMenu mainMenu1;
private System.Windows.Forms.MenuItem menuItem3;
private System.Windows.Forms.MenuItem MenuHelpAbout;
private const int WM_SYSCOMMAND = 0x112;
private void Form1_Load(object sender, System.EventArgs e)
{
    AddSysMenuItems();
}

private void AddSysMenuItems()
{
    //Create a glyph for About MenuItem
    Bitmap bmpGlyph = new Bitmap(16, 16);
    Graphics g = Graphics.FromImage(bmpGlyph);
    g.Clear(Color.White);
    StringFormat sf = new StringFormat();
    sf.LineAlignment = StringAlignment.Center;
    sf.Alignment = StringAlignment.Center;
    g.DrawString("?", new Font(FontFamily.GenericMonospace, 16, FontStyle.Bold, GraphicsUnit.Pixel), SystemBrushes.WindowText, new RectangleF(0, 0, 16, 16), sf);
    g.Dispose();
      
    //Get a gdi bitmap object from our bitmap.
    IntPtr hbmp = bmpGlyph.GetHbitmap();
    bmpGlyph.Dispose();
        
    //Get the System Menus Handle.
    IntPtr hSysMenu = GetSystemMenu(Handle, false);
       
    //Add a standard Separator Item.
    AppendMenu(hSysMenu, MF_SEPARATOR, IntPtr.Zero, null);
    //Add an About Menu Item.
    AppendMenu(hSysMenu, MF_STRING, MenuHelpAbout.Handle, MenuHelpAbout.Text);
    //Add our Glyph to the About MenuItem.
    SetMenuItemBitmaps(hSysMenu, MenuHelpAbout.Handle.ToInt32(), MF_BYCOMMAND, hbmp, hbmp);
    //Finally we'll insert an existing Popup Menu at position 0
    InsertMenu(hSysMenu, 0, MF_BYPOSITION | MF_POPUP, PopUpMenu.Handle, "Popup Item");
    //and a separator at position 1.
    InsertMenu(hSysMenu, 1, MF_BYPOSITION | MF_SEPARATOR, IntPtr.Zero, null);
      
}
    
#endregion
private void MenuHelpAbout_Click(object sender, System.EventArgs e)
{
    String id;
    if (sender is Menu)
        id = "Forms";
    else
        id = "Window Menus";
       
    MessageBox.Show(String.Format("This message was initiated from the {0} About Menu", id));
}

private void sysPopUp_Click(object sender, System.EventArgs e)
{
    MessageBox.Show(((MenuItem)sender).Text);
}

protected override void WndProc(ref Message m)
{
    //MenuItems added directly to the System menu do not fire the
    //Menuitems default event, so we need to call this ourselves.
    //Popupmenus will fire their default events though as can be
    //seen by the fact that we do not call sysPopUp_Click() here.
    base.WndProc (ref m);
    if (m.Msg == WM_SYSCOMMAND)
        if (m.WParam.Equals(MenuHelpAbout.Handle))
            MenuHelpAbout_Click(this, EventArgs.Empty);
}

by: Mick Dohertys'

TabDragging Example using TabDragger Class

2011-07-22T07:59:00.000-07:00

Add the following classes to your project and make one of the following calls to your forms constructor after the InitializeComponent() call (assumes your TabControl is named TabControl1):
This will give you simple DragArrange of the tabs.
[VB] Dim DragTabs As new TabDragger(TabControl1)
[C#] TabDragger DragTabs = New TabDragger(this.tabControl1);

...and this will give you the ability to drag tabs out of the tabcontrol.
[VB] Dim DragTabs As New TabDragger(TabControl1, TabDragBehavior.TabDragout)
[C#] TabDragger DragTabs = new TabDragger(this.tabControl1, TabDragBehavior.TabDragOut);

VB net Class:

Friend Class TabDragger

    Public Sub New(ByVal tabControl As TabControl)
        MyBase.New()
        Me.tabControl = tabControl
        AddHandler tabControl.MouseDown, AddressOf tabControl_MouseDown
        AddHandler tabControl.MouseMove, AddressOf tabControl_MouseMove
        AddHandler tabControl.DoubleClick, AddressOf tabControl_DoubleClick
    End Sub

    Public Sub New(ByVal tabControl As TabControl, ByVal behavior As TabDragBehavior)
        Me.New(tabControl)
        Me._dragBehavior = behavior
    End Sub

    Private tabControl As TabControl
    Private dragTab As TabPage = Nothing
    Private _dragBehavior As TabDragBehavior = TabDragBehavior.TabDragArrange

    Private ReadOnly Property DragBehavior() As TabDragBehavior
        Get
            If (Not tabControl.Multiline) Then
                Return _dragBehavior
            End If
            Return TabDragBehavior.None
        End Get
    End Property

    Private Sub tabControl_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
        dragTab = TabUnderMouse()
    End Sub

    Private Sub tabControl_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)

        If (_dragBehavior = TabDragBehavior.None) Then
            Return
        End If

        If (e.Button = MouseButtons.Left) Then
            If (dragTab IsNot Nothing) Then
                If (tabControl.TabPages.Contains(dragTab)) Then
                    If (PointInTabStrip(e.Location)) Then
                        Dim hotTab As TabPage = TabUnderMouse()
                        If (hotTab IsNot dragTab AndAlso hotTab IsNot Nothing) Then
                            Dim id1 As Int32 = tabControl.TabPages.IndexOf(dragTab)
                            Dim id2 As Int32 = tabControl.TabPages.IndexOf(hotTab)
                            If (id1 > id2) Then
                                For id As Int32 = id2 To id1
                                    SwapTabPages(id1, id)
                                Next
                            Else
                                For id As Int32 = id2 To id1 Step -1
                                    SwapTabPages(id1, id)
                                Next
                            End If
                            tabControl.SelectedTab = dragTab
                        End If
                    Else
                        If (Me._dragBehavior = TabDragBehavior.TabDragOut) Then
                            If (dragTab.Tag IsNot Nothing) Then

                                DirectCast(dragTab.Tag, TabForm).Dispose()
                                dragTab.Tag = Nothing
                            Else
                                Dim frm As New TabForm(dragTab)
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub tabControl_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
        If (Me._dragBehavior = TabDragBehavior.TabDragOut) Then
            Dim frm As New TabForm(dragTab)
        End If
    End Sub

#Region " Private Methods "

    Private Function TabUnderMouse() As TabPage
        Dim HTI As NativeMethods.TCHITTESTINFO = New NativeMethods.TCHITTESTINFO(tabControl.PointToClient(Cursor.Position))
        Dim tabID As Int32 = NativeMethods.SendMessage(tabControl.Handle, NativeMethods.TCM_HITTEST, IntPtr.Zero, HTI)
        Return If(tabID = -1, Nothing, tabControl.TabPages(tabID))
    End Function

    Private Function PointInTabStrip(ByVal point As Point) As Boolean
        Dim tabBounds As Rectangle = Rectangle.Empty
        Dim displayRC As Rectangle = tabControl.DisplayRectangle

        Select Case tabControl.Alignment
            Case TabAlignment.Bottom
                tabBounds.Location = New Point(0, displayRC.Bottom)
                tabBounds.Size = New Size(tabControl.Width, tabControl.Height - displayRC.Height)

            Case TabAlignment.Left
                tabBounds.Size = New Size(displayRC.Left, tabControl.Height)

            Case TabAlignment.Right
                tabBounds.Location = New Point(displayRC.Right, 0)
                tabBounds.Size = New Size(tabControl.Width - displayRC.Width, tabControl.Height)

            Case Else
                tabBounds.Size = New Size(tabControl.Width, displayRC.Top)
        End Select

        tabBounds.Inflate(-3, -3)

        Return tabBounds.Contains(point)

    End Function

    Private Sub SwapTabPages(ByVal index1 As Int32, ByVal index2 As Int32)
        If ((index1 Or index2) <> -1) Then
            Dim tab1 As TabPage = tabControl.TabPages(index1)
            Dim tab2 As TabPage = tabControl.TabPages(index2)
            tabControl.TabPages(index1) = tab2
            tabControl.TabPages(index2) = tab1
        End If
    End Sub

#End Region

End Class

Friend Class TabForm
    Inherits Form

    Public Sub New(ByVal tabPage As TabPage)
        MyBase.New()
        Me.FormBorderStyle = FormBorderStyle.FixedToolWindow
        Me.StartPosition = FormStartPosition.Manual
        Me.MinimizeBox = False
        Me.MaximizeBox = False
        Me.tabPage = tabPage
        tabPage.Tag = Me
        Me.tabControl = DirectCast(tabPage.Parent, TabControl)
        Me.tabID = tabControl.TabPages.IndexOf(tabPage)
        Me.ClientSize = tabPage.Size
        Me.Location = tabControl.PointToScreen(New Point(tabPage.Left, tabControl.PointToClient(Cursor.Position).Y - SystemInformation.ToolWindowCaptionHeight \ 2))
        Me.Text = tabPage.Text
        UnDockFromTab()
        Me.dragOffset = tabControl.PointToScreen(Cursor.Position)
        Me.dragOffset.X -= Me.Location.X
        Me.dragOffset.Y -= Me.Location.Y
    End Sub

    Private tabPage As TabPage
    Private tabControl As TabControl
    Private tabID As Int32
    Private dragOffset As Point

    Protected Overrides Sub OnClosed(ByVal e As EventArgs)
        MyBase.OnClosed(e)
        DockToTab()
    End Sub

    Protected Overrides Sub WndProc(ByRef m As Message)

        If (m.Msg = NativeMethods.WM_MOVING) Then

            Dim rc As NativeMethods.RECT = DirectCast(m.GetLParam(GetType(NativeMethods.RECT)), NativeMethods.RECT)
            Dim pt As Point = tabControl.PointToClient(Cursor.Position)
            Dim pageRect As Rectangle = tabControl.DisplayRectangle
            Dim tabsRect As Rectangle = Rectangle.Empty

            Select Case tabControl.Alignment

                Case TabAlignment.Left
                    tabsRect.Size = New Size(pageRect.Left, tabControl.Height)

                Case TabAlignment.Bottom
                    tabsRect.Location = New Point(0, pageRect.Bottom)
                    tabsRect.Size = New Size(tabControl.Width, tabControl.Bottom - pageRect.Bottom)

                Case TabAlignment.Right
                    tabsRect.Location = New Point(pageRect.Right, 0)
                    tabsRect.Size = New Size(tabControl.Right - pageRect.Right, tabControl.Height)

                Case Else
                    tabsRect.Size = New Size(tabControl.Width, pageRect.Top)
            End Select

            If tabsRect.Contains(pt) Then
                DockToTab()
            Else
                UnDockFromTab()
            End If

        End If

        MyBase.WndProc(m)

        Select Case m.Msg
            Case NativeMethods.WM_NCLBUTTONDBLCLK
                Me.Close()

            Case NativeMethods.WM_EXITSIZEMOVE
                If (Not Me.Visible) Then
                    Me.Close()
                End If

            Case NativeMethods.WM_MOUSEMOVE
                If (m.WParam.ToInt32() = 1) Then

                    If (Not captured) Then
                        Dim pt As Point = tabControl.PointToScreen((Cursor.Position))
                        Dim newPosition As Point = New Point(pt.X - dragOffset.X, pt.Y - dragOffset.Y)
                        Me.Location = newPosition
                    End If
                    Dim rc As NativeMethods.RECT = New NativeMethods.RECT(Me.Bounds)
                    Dim lParam As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(rc))
                    Marshal.StructureToPtr(rc, lParam, True)
                    NativeMethods.SendMessage(Me.Handle, NativeMethods.WM_MOVING, IntPtr.Zero, lParam)
                    Marshal.FreeHGlobal(lParam)
                End If

            Case NativeMethods.WM_SETCURSOR
                captured = True

            Case Else

        End Select

    End Sub

    Private captured As Boolean

    Private Sub DockToTab()

        If (Not tabControl.TabPages.Contains(tabPage)) Then
            For id As Int32 = Me.Controls.Count - 1 To 0 Step -1

                tabPage.Controls.Add(Me.Controls(0))
            Next
            tabControl.TabPages.Insert(tabID, tabPage)
            tabControl.SelectedTab = tabPage

            tabControl.Capture = True
            Me.Close()
        End If
    End Sub

    Private Sub UnDockFromTab()

        If (Me.Visible OrElse Me.IsDisposed) Then
            Return
        End If

        For id As Int32 = tabPage.Controls.Count - 1 To 0 Step -1
            Me.Controls.Add(tabPage.Controls(0))
        Next

        tabControl.TabPages.Remove(tabPage)
        Me.Capture = True
        Me.Show()
    End Sub

End Class

Friend NotInheritable Class NativeMethods

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure RECT
        Public Left, Top, Right, Bottom As Int32
        Public Sub New(ByVal bounds As Rectangle)
            Me.Left = bounds.Left
            Me.Top = bounds.Top
            Me.Right = bounds.Right
            Me.Bottom = bounds.Bottom
        End Sub
        Public Overrides Function ToString() As String
            Return String.Format("{0}, {1}, {2}, {3}", Left, Top, Right, Bottom)
        End Function
    End Structure

    Public Const WM_NCLBUTTONDBLCLK As Int32 = &HA3

    Public Const WM_SETCURSOR As Int32 = &H20

    Public Const WM_NCHITTEST As Int32 = &H84

    Public Const WM_MOUSEMOVE As Int32 = &H200
    Public Const WM_MOVING As Int32 = &H216
    Public Const WM_EXITSIZEMOVE As Int32 = &H232

    <DllImport("user32.dll")> _
    Public Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal msg As Int32, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Int32
    End Function
    <DllImport("user32.dll")> _
    Public Shared Function SendMessage(ByVal hwnd As IntPtr, ByVal msg As Int32, ByVal wParam As IntPtr, ByRef lParam As TCHITTESTINFO) As Int32
    End Function

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure TCHITTESTINFO
        Public pt As Point
        Public flags As TCHITTESTFLAGS
        Public Sub New(ByVal point As Point)
            pt = point
            flags = TCHITTESTFLAGS.TCHT_ONITEM
        End Sub
    End Structure

    <Flags()> _
    Public Enum TCHITTESTFLAGS
        TCHT_NOWHERE = 1
        TCHT_ONITEMICON = 2
        TCHT_ONITEMLABEL = 4
        TCHT_ONITEM = TCHT_ONITEMICON Or TCHT_ONITEMLABEL
    End Enum

    Public Const TCM_HITTEST As Int32 = &H130D

End Class

Public Enum TabDragBehavior
    None
    TabDragArrange
    TabDragOut
End Enum

CSharp Class:

internal class TabDragger
{
    public TabDragger(TabControl tabControl)
        : base()
    {
        this.tabControl = tabControl;
        tabControl.MouseDown +=new MouseEventHandler(tabControl_MouseDown);
        tabControl.MouseMove += new MouseEventHandler(tabControl_MouseMove);
        tabControl.DoubleClick += new EventHandler(tabControl_DoubleClick);
    }

    public TabDragger(TabControl tabControl, TabDragBehavior behavior) 
        : this(tabControl)
    {
        this.dragBehavior = behavior;
    }

    private TabControl tabControl;
    private TabPage dragTab = null;
    private TabDragBehavior dragBehavior = TabDragBehavior.TabDragArrange;

    private TabDragBehavior DragBehavior
    {
        get
        {
            if (!tabControl.Multiline)
                return dragBehavior;
            return TabDragBehavior.None;
        }
    }

    private void tabControl_MouseDown(object sender, MouseEventArgs e)
    {
        dragTab = TabUnderMouse();
    }

    private void tabControl_MouseMove(object sender, MouseEventArgs e)
    {
        if (DragBehavior == TabDragBehavior.None)
            return;

        if (e.Button == MouseButtons.Left)
        {
            if (dragTab != null)
            {
                if (tabControl.TabPages.Contains(dragTab))
                {
                    if (PointInTabStrip(e.Location))
                    {
                        TabPage hotTab = TabUnderMouse();
                        if (hotTab != dragTab && hotTab != null)
                        {
                            int id1 = tabControl.TabPages.IndexOf(dragTab);
                            int id2 = tabControl.TabPages.IndexOf(hotTab);
                            if (id1 > id2)
                            {
                                for (int id = id2; id <= id1; id++)
                                {
                                    SwapTabPages(id1, id);
                                }
                            }
                            else
                            {
                                for (int id = id2; id > id1; id--)
                                {
                                    SwapTabPages(id1, id);
                                }
                            }
                            tabControl.SelectedTab = dragTab;
                        }
                    }
                    else
                    {
                        if (this.dragBehavior == TabDragBehavior.TabDragOut)
                        {
                            if (dragTab.Tag != null)
                            {
                                ((TabForm)dragTab.Tag).Dispose();
                                dragTab.Tag = null;
                            }
                            else
                            {
                                TabForm frm = new TabForm(dragTab);
                            }
                        }
                    }
                }
            }
        }
    }

    private void tabControl_DoubleClick(object sender, EventArgs e)
    {
        if (this.DragBehavior == TabDragBehavior.TabDragOut)
        {
            TabForm frm = new TabForm(dragTab);
        }
    }

    #region Private Methods

    private TabPage TabUnderMouse()
    {
        NativeMethods.TCHITTESTINFO HTI = new NativeMethods.TCHITTESTINFO(tabControl.PointToClient(Cursor.Position));
        int tabID = NativeMethods.SendMessage(tabControl.Handle, NativeMethods.TCM_HITTEST, IntPtr.Zero, ref HTI);
        return tabID == -1 ? null : tabControl.TabPages[tabID];
    }

    private bool PointInTabStrip(Point point)
    {
        Rectangle tabBounds = Rectangle.Empty;
        Rectangle displayRC = tabControl.DisplayRectangle; ;

        switch (tabControl.Alignment)
        {
            case TabAlignment.Bottom:
                tabBounds.Location = new Point(0, displayRC.Bottom);
                tabBounds.Size = new Size(tabControl.Width, tabControl.Height - displayRC.Height);
                break;

            case TabAlignment.Left:
                tabBounds.Size = new Size(displayRC.Left, tabControl.Height);
                break;

            case TabAlignment.Right:
                tabBounds.Location = new Point(displayRC.Right, 0);
                tabBounds.Size = new Size(tabControl.Width - displayRC.Width, tabControl.Height);
                break;

            default:
                tabBounds.Size = new Size(tabControl.Width, displayRC.Top);
                break;
        }
        tabBounds.Inflate(-3, -3);
        return tabBounds.Contains(point);
    }

    private void SwapTabPages(int index1, int index2)
    {
        if ((index1 | index2) != -1)
        {
            TabPage tab1 = tabControl.TabPages[index1];
            TabPage tab2 = tabControl.TabPages[index2];
            tabControl.TabPages[index1] = tab2;
            tabControl.TabPages[index2] = tab1;
        }
    }

    #endregion

}

internal class TabForm : Form
{
    public TabForm(TabPage tabPage)
        : base()
    {
        this.FormBorderStyle = FormBorderStyle.FixedToolWindow;
        this.StartPosition = FormStartPosition.Manual;
        this.MinimizeBox = false;
        this.MaximizeBox = false;
        this.tabPage = tabPage;
        tabPage.Tag = this;
        this.tabControl = (TabControl)tabPage.Parent;
        this.tabID = tabControl.TabPages.IndexOf(tabPage);
        this.ClientSize = tabPage.Size;
        this.Location = tabControl.PointToScreen(new Point(tabPage.Left, tabControl.PointToClient(Cursor.Position).Y - SystemInformation.ToolWindowCaptionHeight / 2));
        this.Text = tabPage.Text;
        UnDockFromTab();
        this.dragOffset = tabControl.PointToScreen(Cursor.Position);
        this.dragOffset.X -= this.Location.X ;
        this.dragOffset.Y -= this.Location.Y;
    }

    private TabPage tabPage;
    private TabControl tabControl;
    private int tabID;
    private Point dragOffset;

    protected override void OnClosed(EventArgs e)
    {
        base.OnClosed(e);
        DockToTab();
    }

    protected override void WndProc(ref Message m)
    {
        if (m.Msg == NativeMethods.WM_MOVING)
        {
            NativeMethods.RECT rc = (NativeMethods.RECT)m.GetLParam(typeof(NativeMethods.RECT));
            Point pt = tabControl.PointToClient(Cursor.Position);
            Rectangle pageRect = tabControl.DisplayRectangle;
            Rectangle tabsRect = Rectangle.Empty;
            switch (tabControl.Alignment)
            {
                case TabAlignment.Left:
                    tabsRect.Size = new Size(pageRect.Left, tabControl.Height);
                    break;

                case TabAlignment.Bottom:
                    tabsRect.Location = new Point(0, pageRect.Bottom);
                    tabsRect.Size = new Size(tabControl.Width, tabControl.Bottom - pageRect.Bottom);
                    break;

                case TabAlignment.Right:
                    tabsRect.Location = new Point(pageRect.Right, 0);
                    tabsRect.Size = new Size(tabControl.Right - pageRect.Right, tabControl.Height);
                    break;

                default:
                    tabsRect.Size = new Size(tabControl.Width, pageRect.Top);
                    break;

            }
            if (tabsRect.Contains(pt))
                DockToTab();
            else
                UnDockFromTab();
        }

        base.WndProc(ref m);
            
        switch (m.Msg)
        {
            case NativeMethods.WM_NCLBUTTONDBLCLK:
                this.Close();
                break;

            case NativeMethods.WM_EXITSIZEMOVE:
                if (!this.Visible)
                    this.Close();
                break;

            case NativeMethods.WM_MOUSEMOVE:
                if (m.WParam.ToInt32() == 1)
                {
                    if (!captured)
                    {
                        Point pt = tabControl.PointToScreen((Cursor.Position));
                        Point newPosition = new Point(pt.X - dragOffset.X, pt.Y - dragOffset.Y);
                        this.Location = newPosition;
                    }
                    NativeMethods.RECT rc = new NativeMethods.RECT(this.Bounds);
                    IntPtr lParam = Marshal.AllocHGlobal(Marshal.SizeOf(rc));
                    Marshal.StructureToPtr(rc, lParam, true);
                    NativeMethods.SendMessage(this.Handle, NativeMethods.WM_MOVING, IntPtr.Zero, lParam);
                    Marshal.FreeHGlobal(lParam);
                }
                break;

            case NativeMethods.WM_SETCURSOR:
                captured = true;
                break;

            default:
                break;
        }

    }

    private bool captured;

    private void DockToTab()
    {
        if (!tabControl.TabPages.Contains(tabPage))
        {
            for (int id = this.Controls.Count - 1; id >= 0; id--)
            {
                tabPage.Controls.Add(this.Controls[0]);
            }
            tabControl.TabPages.Insert(tabID, tabPage);
            tabControl.SelectedTab = tabPage;

            tabControl.Capture = true;
            this.Close();
        }
    }

    private void UnDockFromTab()
    {
        if (this.Visible || this.IsDisposed)
            return;
        for (int id = tabPage.Controls.Count - 1; id >= 0; id--)
        {
            this.Controls.Add(tabPage.Controls[0]);
        }

        tabControl.TabPages.Remove(tabPage);
        this.Capture = true;
        this.Show();
    }

}

internal sealed class NativeMethods
{

    [StructLayout(LayoutKind.Sequential)]
    public struct RECT
    {
        public int Left, Top, Right, Bottom;
        public RECT(Rectangle bounds)
        {
            this.Left = bounds.Left;
            this.Top = bounds.Top;
            this.Right = bounds.Right;
            this.Bottom = bounds.Bottom;
        }
        public override string ToString()
        {
            return String.Format("{0}, {1}, {2}, {3}", Left, Top, Right, Bottom);
        }
    }

    public const int WM_NCLBUTTONDBLCLK = 0xA3;
    
    public const int WM_SETCURSOR = 0x20;

    public const int WM_NCHITTEST = 0x84;

    public const int WM_MOUSEMOVE = 0x200;
    public const int WM_MOVING = 0x216;
    public const int WM_EXITSIZEMOVE = 0x232;

    [DllImport("user32.dll")]
    public static extern int SendMessage(IntPtr hwnd, int msg, IntPtr wParam, IntPtr lParam);

    [DllImport("user32.dll")]
    public static extern int SendMessage(IntPtr hwnd, int msg, IntPtr wParam, ref TCHITTESTINFO lParam);

    [StructLayout(LayoutKind.Sequential)]
    public struct TCHITTESTINFO
    {
        public Point pt;
        public TCHITTESTFLAGS flags;
        public TCHITTESTINFO(Point point)
        {
            pt = point;
            flags = TCHITTESTFLAGS.TCHT_ONITEM;
        }
    }

    [Flags()]
    public enum TCHITTESTFLAGS
    {
        TCHT_NOWHERE = 1,
        TCHT_ONITEMICON = 2,
        TCHT_ONITEMLABEL = 4,
        TCHT_ONITEM = TCHT_ONITEMICON | TCHT_ONITEMLABEL
    }

    public const int TCM_HITTEST = 0x130D;

}

public enum TabDragBehavior
{None, TabDragArrange, TabDragOut }