How to make XP Style Buttons in your VB.Net

Author: DevASP
Download Source Code : 364_XP_STYLE_BUTTONS.zip

Create a New Project in VB.Net. Drag ten Button controls from tool box . Now write code on Form Load Event and Buttons Click events

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

Button1.Text = "Click Me"

Button2.Text = "Click Me"

Button3.Text = "Click Me"

Button4.Text = "Click Me"

Button5.Text = "Click Me"

Button6.Text = "Click Me"

Button7.Text = "Click Me"

Button8.Text = "Click Me"

Button9.Text = "Click Me"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Button1.FlatStyle = FlatStyle.System

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Button3.FlatStyle = FlatStyle.System

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

Button9.FlatStyle = FlatStyle.System

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

Button8.FlatStyle = FlatStyle.System

End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

Button6.FlatStyle = FlatStyle.System

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Button2.FlatStyle = FlatStyle.System

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Button4.FlatStyle = FlatStyle.System

End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Button7.FlatStyle = FlatStyle.System

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Button5.FlatStyle = FlatStyle.System

End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

Button1.FlatStyle = FlatStyle.Standard

Button2.FlatStyle = FlatStyle.Standard

Button3.FlatStyle = FlatStyle.Standard

Button4.FlatStyle = FlatStyle.Standard

Button5.FlatStyle = FlatStyle.Standard

Button6.FlatStyle = FlatStyle.Standard

Button7.FlatStyle = FlatStyle.Standard

Button8.FlatStyle = FlatStyle.Standard

Button9.FlatStyle = FlatStyle.Standard

End Sub