Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '
- ' * Kaspersky 2014 Theme
- ' * v1.0.0.0
- ' * by Guilherme Santos
- ' * guilhermesantos97@live.com
- '
- Imports System.Collections.Generic
- Imports System.Drawing
- Imports System.Drawing.Drawing2D
- Imports System.Runtime.InteropServices
- Imports System.Text
- Imports System.Windows.Forms
- Namespace Themes_CSharp
- Public Class Kaspersky2014Form
- Inherits Form
- Protected Const WM_NCLBUTTONDOWN As Integer = &Ha1
- Protected Const HT_CAPTION As Integer = &H2
- <DllImport("user32.dll")> _
- Private Shared Function SendMessage(hWnd As IntPtr, Msg As Integer, wParam As Integer, lParam As Integer) As IntPtr
- End Function
- Public Declare Auto Function ReleaseCapture Lib "user32.dll" () As Boolean
- Protected Overrides Sub OnMouseDown(e As MouseEventArgs)
- If e.Button = MouseButtons.Left Then
- ReleaseCapture()
- SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
- End If
- End Sub
- Private closeButton As Kaspersky2014CloseButton
- Private minimizeButton As Kaspersky2014MinimizeButton
- Public Sub New()
- Me.FormBorderStyle = FormBorderStyle.None
- closeButton = New Kaspersky2014CloseButton()
- minimizeButton = New Kaspersky2014MinimizeButton()
- closeButton.Size = New Size(40, 23)
- minimizeButton.Size = New Size(32, 23)
- closeButton.Left = (Me.Width - closeButton.Width) - 15
- minimizeButton.Left = closeButton.Left - minimizeButton.Width
- closeButton.Top = border + 1
- minimizeButton.Top = border + 1
- Me.Controls.Add(closeButton)
- Me.Controls.Add(minimizeButton)
- End Sub
- Private m_headerHeight As Integer = 80
- Public Property HeaderHeight() As Integer
- Get
- Return m_headerHeight
- End Get
- Set
- m_headerHeight = value
- Me.Invalidate()
- End Set
- End Property
- Private m_footerHeight As Integer = 50
- Public Property FooterHeight() As Integer
- Get
- Return m_footerHeight
- End Get
- Set
- m_footerHeight = value
- Me.Invalidate()
- End Set
- End Property
- Private m_headerText As String
- Public Property HeaderText() As String
- Get
- Return m_headerText
- End Get
- Set
- m_headerText = value
- Me.Invalidate()
- End Set
- End Property
- Private m_headerFont As New Font("Tahoma", 12F)
- Public Property HeaderFont() As Font
- Get
- Return m_headerFont
- End Get
- Set
- m_headerFont = value
- Me.Invalidate()
- End Set
- End Property
- Private m_showDropShadow As Boolean = True
- Public Property ShowDropShadow() As Boolean
- Get
- Return m_showDropShadow
- End Get
- Set
- m_showDropShadow = value
- Me.Invalidate()
- End Set
- End Property
- Private border As Integer = 4
- Private dropShadowHeight As Integer = 25
- Protected Overrides Sub OnResize(e As EventArgs)
- MyBase.OnResize(e)
- closeButton.Left = (Me.Width - closeButton.Width) - 15
- minimizeButton.Left = closeButton.Left - minimizeButton.Width
- End Sub
- Protected Overrides Sub OnPaint(e As PaintEventArgs)
- Dim g As Graphics = e.Graphics
- g.Clear(Color.White)
- Dim bg As New LinearGradientBrush(Me.ClientRectangle, Color.FromArgb(138, 157, 158), Color.FromArgb(58, 63, 66), LinearGradientMode.Vertical)
- g.FillRectangle(bg, Me.ClientRectangle)
- Dim headerRectangle As New Rectangle(border, border, Me.Width - (border * 2), m_headerHeight)
- Dim hbg As New HatchBrush(HatchStyle.DashedHorizontal, Color.FromArgb(50, 171, 157), Color.FromArgb(43, 163, 147))
- g.FillRectangle(hbg, headerRectangle)
- Dim grad As New LinearGradientBrush(headerRectangle, Color.FromArgb(20, Color.White), Color.FromArgb(120, Color.Black), LinearGradientMode.Vertical)
- g.FillRectangle(grad, headerRectangle)
- Dim sz As SizeF = g.MeasureString(m_headerText, Me.Font)
- g.DrawString(m_headerText, m_headerFont, Brushes.WhiteSmoke, New PointF(30, (headerRectangle.Height - sz.Height) / 2))
- g.DrawRectangle(New Pen(Color.FromArgb(80, Color.Black)), headerRectangle)
- Dim contentRectangle As New Rectangle(border, m_headerHeight, Me.Width - (border * 2), ((Me.Height - m_headerHeight) - (border)) - m_footerHeight)
- g.FillRectangle(Brushes.WhiteSmoke, contentRectangle)
- If m_showDropShadow Then
- Dim shadowRectangle As New Rectangle(contentRectangle.X, contentRectangle.Y, contentRectangle.Width, dropShadowHeight)
- Dim sbg As New LinearGradientBrush(shadowRectangle, Color.FromArgb(120, 50, 171, 157), Color.WhiteSmoke, LinearGradientMode.Vertical)
- g.FillRectangle(sbg, shadowRectangle)
- End If
- Dim footerRectangle As New Rectangle(border, (Me.Height - border) - m_footerHeight, Me.Width - (border * 2), m_footerHeight)
- Dim fbg As New LinearGradientBrush(footerRectangle, Color.FromArgb(54, 57, 62), Color.FromArgb(44, 47, 52), LinearGradientMode.Vertical)
- g.FillRectangle(fbg, footerRectangle)
- g.DrawRectangle(Pens.Black, footerRectangle)
- g.DrawRectangle(New Pen(Color.FromArgb(180, Color.Black)), contentRectangle)
- End Sub
- End Class
- Class Kaspersky2014ProgressBar
- Inherits Button
- ' x-coordinate of upper-left corner
- ' y-coordinate of upper-left corner
- ' x-coordinate of lower-right corner
- ' y-coordinate of lower-right corner
- ' height of ellipse
- <DllImport("Gdi32.dll", EntryPoint := "CreateRoundRectRgn")> _
- Private Shared Function CreateRoundRectRgn(nLeftRect As Integer, nTopRect As Integer, nRightRect As Integer, nBottomRect As Integer, nWidthEllipse As Integer, nHeightEllipse As Integer) As IntPtr
- ' width of ellipse
- End Function
- Public Sub DrawRoundRect(g As Graphics, p As Pen, X As Single, Y As Single, width As Single, height As Single, _
- radius As Single)
- Dim gp As New GraphicsPath()
- gp.AddLine(X + radius, Y, X + width - (radius * 2), Y)
- gp.AddArc(X + width - (radius * 2), Y, radius * 2, radius * 2, 270, 90)
- gp.AddLine(X + width, Y + radius, X + width, Y + height - (radius * 2))
- gp.AddArc(X + width - (radius * 2), Y + height - (radius * 2), radius * 2, radius * 2, 0, 90)
- gp.AddLine(X + width - (radius * 2), Y + height, X + radius, Y + height)
- gp.AddArc(X, Y + height - (radius * 2), radius * 2, radius * 2, 90, 90)
- gp.AddLine(X, Y + height - (radius * 2), X, Y + radius)
- gp.AddArc(X, Y, radius * 2, radius * 2, 180, 90)
- gp.CloseFigure()
- g.DrawPath(p, gp)
- gp.Dispose()
- End Sub
- Private m_maximum As Single = 100F
- Public Property Maximum() As Single
- Get
- Return m_maximum
- End Get
- Set
- m_maximum = value
- Me.Invalidate()
- End Set
- End Property
- Private mValue As Single = 0F
- Public Property Value() As Single
- Get
- Return mValue
- End Get
- Set
- mValue = value
- Me.Invalidate()
- End Set
- End Property
- Protected Overrides Sub OnResize(e As EventArgs)
- MyBase.OnResize(e)
- Me.Region = Region.FromHrgn(CreateRoundRectRgn(0, 0, Me.Width - 1, Me.Height - 1, 3, 3))
- End Sub
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.Clear(Color.White)
- Dim progressWidth As Integer = CInt(Math.Truncate((mValue / m_maximum) * Me.Width))
- Dim progressRect As New Rectangle(0, 0, progressWidth, Me.Height)
- If mValue > 0 Then
- Dim pbg As New LinearGradientBrush(progressRect, Color.FromArgb(2, 158, 131), Color.FromArgb(4, 129, 107), LinearGradientMode.Vertical)
- g.FillRectangle(pbg, New Rectangle(0, 0, progressWidth, Me.Height))
- End If
- Dim r1 As New RectangleF(1, 1, Me.Width - 2, Me.Height - 4)
- r1.Width = CSng(r1.Width * mValue / m_maximum)
- Dim reg1 As New Region(r1)
- Dim reg2 As New Region(Me.ClientRectangle)
- reg2.Exclude(reg1)
- Dim textSize As SizeF = g.MeasureString(Me.Text, Me.Font)
- Dim y As Single = (Me.ClientRectangle.Height - textSize.Height) / 2
- g.Clip = reg1
- g.DrawString(Me.Text, Me.Font, Brushes.WhiteSmoke, 10, y)
- g.Clip = reg2
- g.DrawString(Me.Text, Me.Font, Brushes.Gray, 10, y)
- reg1.Dispose()
- reg2.Dispose()
- DrawRoundRect(g, Pens.Gray, 0, 0, Me.Width - 3, Me.Height - 3, _
- 3)
- End Sub
- End Class
- Class Kaspersky2014CloseButton
- Inherits Button
- ' x-coordinate of upper-left corner
- ' y-coordinate of upper-left corner
- ' x-coordinate of lower-right corner
- ' y-coordinate of lower-right corner
- ' height of ellipse
- <DllImport("Gdi32.dll", EntryPoint := "CreateRoundRectRgn")> _
- Private Shared Function CreateRoundRectRgn(nLeftRect As Integer, nTopRect As Integer, nRightRect As Integer, nBottomRect As Integer, nWidthEllipse As Integer, nHeightEllipse As Integer) As IntPtr
- ' width of ellipse
- End Function
- Public Sub DrawRoundRect(g As Graphics, p As Pen, X As Single, Y As Single, width As Single, height As Single, _
- radius As Single)
- Dim gp As New GraphicsPath()
- gp.AddLine(X + radius, Y, X + width - (radius * 2), Y)
- gp.AddArc(X + width - (radius * 2), Y, radius * 2, radius * 2, 270, 90)
- gp.AddLine(X + width, Y + radius, X + width, Y + height - (radius * 2))
- gp.AddArc(X + width - (radius * 2), Y + height - (radius * 2), radius * 2, radius * 2, 0, 90)
- gp.AddLine(X + width - (radius * 2), Y + height, X + radius, Y + height)
- gp.AddArc(X, Y + height - (radius * 2), radius * 2, radius * 2, 90, 90)
- gp.AddLine(X, Y + height - (radius * 2), X, Y + radius)
- gp.AddArc(X, Y, radius * 2, radius * 2, 180, 90)
- gp.CloseFigure()
- g.DrawPath(p, gp)
- gp.Dispose()
- End Sub
- Private Enum MouseState
- None
- Over
- Down
- End Enum
- Private state As MouseState = MouseState.None
- Protected Overrides Sub OnMouseEnter(e As EventArgs)
- state = MouseState.Over
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- state = MouseState.None
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnMouseDown(mevent As MouseEventArgs)
- state = MouseState.Down
- MyBase.OnMouseDown(mevent)
- End Sub
- Protected Overrides Sub OnMouseUp(mevent As MouseEventArgs)
- state = MouseState.Over
- MyBase.OnMouseUp(mevent)
- End Sub
- Protected Overrides Sub OnClick(e As EventArgs)
- MyBase.OnClick(e)
- Environment.[Exit](0)
- End Sub
- Private font As New Font("Marlett", 11F)
- Protected Overrides Sub OnResize(e As EventArgs)
- MyBase.OnResize(e)
- Me.Region = Region.FromHrgn(CreateRoundRectRgn(-5, -5, Me.Width - 1, Me.Height - 1, 12, 12))
- End Sub
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.SmoothingMode = SmoothingMode.AntiAlias
- g.Clear(Color.White)
- g.FillRectangle(New SolidBrush(Color.FromArgb(160, 46, 37)), Me.ClientRectangle)
- g.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), New Rectangle(0, 0, Me.Width, Me.Height \ 2))
- Select Case state
- Case MouseState.Over
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), Me.ClientRectangle)
- Exit Select
- Case MouseState.Down
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Black)), Me.ClientRectangle)
- Exit Select
- End Select
- TextRenderer.DrawText(g, "r", font, Me.ClientRectangle, Color.WhiteSmoke, TextFormatFlags.VerticalCenter Or TextFormatFlags.HorizontalCenter)
- DrawRoundRect(g, New Pen(Color.DarkRed), -5, -5, Me.Width + 2, Me.Height + 2, _
- 8)
- End Sub
- End Class
- Class Kaspersky2014MinimizeButton
- Inherits Button
- ' x-coordinate of upper-left corner
- ' y-coordinate of upper-left corner
- ' x-coordinate of lower-right corner
- ' y-coordinate of lower-right corner
- ' height of ellipse
- <DllImport("Gdi32.dll", EntryPoint := "CreateRoundRectRgn")> _
- Private Shared Function CreateRoundRectRgn(nLeftRect As Integer, nTopRect As Integer, nRightRect As Integer, nBottomRect As Integer, nWidthEllipse As Integer, nHeightEllipse As Integer) As IntPtr
- ' width of ellipse
- End Function
- Public Sub DrawRoundRect(g As Graphics, p As Pen, X As Single, Y As Single, width As Single, height As Single, _
- radius As Single)
- Dim gp As New GraphicsPath()
- gp.AddLine(X + radius, Y, X + width - (radius * 2), Y)
- gp.AddArc(X + width - (radius * 2), Y, radius * 2, radius * 2, 270, 90)
- gp.AddLine(X + width, Y + radius, X + width, Y + height - (radius * 2))
- gp.AddArc(X + width - (radius * 2), Y + height - (radius * 2), radius * 2, radius * 2, 0, 90)
- gp.AddLine(X + width - (radius * 2), Y + height, X + radius, Y + height)
- gp.AddArc(X, Y + height - (radius * 2), radius * 2, radius * 2, 90, 90)
- gp.AddLine(X, Y + height - (radius * 2), X, Y + radius)
- gp.AddArc(X, Y, radius * 2, radius * 2, 180, 90)
- gp.CloseFigure()
- g.DrawPath(p, gp)
- gp.Dispose()
- End Sub
- Private Enum MouseState
- None
- Over
- Down
- End Enum
- Private state As MouseState = MouseState.None
- Protected Overrides Sub OnMouseEnter(e As EventArgs)
- state = MouseState.Over
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- state = MouseState.None
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnMouseDown(mevent As MouseEventArgs)
- state = MouseState.Down
- MyBase.OnMouseDown(mevent)
- End Sub
- Protected Overrides Sub OnMouseUp(mevent As MouseEventArgs)
- state = MouseState.Over
- MyBase.OnMouseUp(mevent)
- End Sub
- Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
- MyBase.OnMouseClick(e)
- DirectCast(Me.Parent, Form).WindowState = FormWindowState.Minimized
- End Sub
- Private font As New Font("Marlett", 11F)
- Protected Overrides Sub OnResize(e As EventArgs)
- MyBase.OnResize(e)
- Me.Region = Region.FromHrgn(CreateRoundRectRgn(1, -5, Me.Width + 5, Me.Height - 1, 12, 12))
- End Sub
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.SmoothingMode = SmoothingMode.AntiAlias
- g.Clear(Color.White)
- g.FillRectangle(New SolidBrush(Color.FromArgb(56, 143, 133)), Me.ClientRectangle)
- g.FillRectangle(New SolidBrush(Color.FromArgb(20, Color.White)), New Rectangle(0, 0, Me.Width, Me.Height \ 2))
- Select Case state
- Case MouseState.Over
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), Me.ClientRectangle)
- Exit Select
- Case MouseState.Down
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Black)), Me.ClientRectangle)
- Exit Select
- End Select
- TextRenderer.DrawText(g, "0", font, Me.ClientRectangle, Color.WhiteSmoke, TextFormatFlags.VerticalCenter Or TextFormatFlags.HorizontalCenter)
- DrawRoundRect(g, New Pen(Color.Teal), 1, -5, Me.Width + 5, Me.Height + 2, _
- 8)
- End Sub
- End Class
- Class Kaspersky2014GreenButton
- Inherits Button
- Private Enum MouseState
- None
- Over
- Down
- End Enum
- Private state As MouseState = MouseState.None
- Protected Overrides Sub OnMouseEnter(e As EventArgs)
- state = MouseState.Over
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- state = MouseState.None
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnMouseDown(mevent As MouseEventArgs)
- state = MouseState.Down
- MyBase.OnMouseDown(mevent)
- End Sub
- Protected Overrides Sub OnMouseUp(mevent As MouseEventArgs)
- state = MouseState.Over
- MyBase.OnMouseUp(mevent)
- End Sub
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.Clear(Color.White)
- Dim bg As New LinearGradientBrush(Me.ClientRectangle, Color.FromArgb(0, 161, 137), Color.FromArgb(0, 130, 110), LinearGradientMode.Vertical)
- g.FillRectangle(bg, Me.ClientRectangle)
- Select Case state
- Case MouseState.Over
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.White)), Me.ClientRectangle)
- Exit Select
- Case MouseState.Down
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Black)), Me.ClientRectangle)
- Exit Select
- End Select
- g.DrawLine(New Pen(Color.FromArgb(0, 191, 167)), 1, 1, Me.Width, 1)
- g.DrawRectangle(New Pen(Color.FromArgb(0, 141, 117)), New Rectangle(0, 0, Me.Width - 1, Me.Height - 1))
- TextRenderer.DrawText(g, Me.Text, Me.Font, Me.ClientRectangle, Me.ForeColor, TextFormatFlags.HorizontalCenter Or TextFormatFlags.VerticalCenter)
- End Sub
- End Class
- Class Kaspersky2014CheckBox
- Inherits Button
- Public Sub DrawRoundRect(g As Graphics, p As Pen, X As Single, Y As Single, width As Single, height As Single, _
- radius As Single)
- Dim gp As New GraphicsPath()
- gp.AddLine(X + radius, Y, X + width - (radius * 2), Y)
- gp.AddArc(X + width - (radius * 2), Y, radius * 2, radius * 2, 270, 90)
- gp.AddLine(X + width, Y + radius, X + width, Y + height - (radius * 2))
- gp.AddArc(X + width - (radius * 2), Y + height - (radius * 2), radius * 2, radius * 2, 0, 90)
- gp.AddLine(X + width - (radius * 2), Y + height, X + radius, Y + height)
- gp.AddArc(X, Y + height - (radius * 2), radius * 2, radius * 2, 90, 90)
- gp.AddLine(X, Y + height - (radius * 2), X, Y + radius)
- gp.AddArc(X, Y, radius * 2, radius * 2, 180, 90)
- gp.CloseFigure()
- g.DrawPath(p, gp)
- gp.Dispose()
- End Sub
- Private mChecked As Boolean = False
- Public Property Checked() As Boolean
- Get
- Return mChecked
- End Get
- Set
- mChecked = value
- Me.Invalidate()
- End Set
- End Property
- Protected Overrides Sub OnClick(e As EventArgs)
- Me.Checked = Not Me.Checked
- MyBase.OnClick(e)
- End Sub
- Private font As New Font("Marlett", 15F)
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.Clear(Me.BackColor)
- DrawRoundRect(g, New Pen(Color.FromArgb(172, 182, 181)), 0, 0, 17, 17, _
- 3)
- Select Case mChecked
- Case True
- g.DrawString("b", font, Brushes.DarkSlateGray, New PointF(-2, -1))
- Exit Select
- End Select
- g.DrawString(Me.Text, Me.Font, Brushes.Black, New PointF(20, 2))
- End Sub
- End Class
- Class Kaspersky2014WhiteButton
- Inherits Button
- Public Sub DrawRoundRect(g As Graphics, p As Pen, X As Single, Y As Single, width As Single, height As Single, _
- radius As Single)
- Dim gp As New GraphicsPath()
- gp.AddLine(X + radius, Y, X + width - (radius * 2), Y)
- gp.AddArc(X + width - (radius * 2), Y, radius * 2, radius * 2, 270, 90)
- gp.AddLine(X + width, Y + radius, X + width, Y + height - (radius * 2))
- gp.AddArc(X + width - (radius * 2), Y + height - (radius * 2), radius * 2, radius * 2, 0, 90)
- gp.AddLine(X + width - (radius * 2), Y + height, X + radius, Y + height)
- gp.AddArc(X, Y + height - (radius * 2), radius * 2, radius * 2, 90, 90)
- gp.AddLine(X, Y + height - (radius * 2), X, Y + radius)
- gp.AddArc(X, Y, radius * 2, radius * 2, 180, 90)
- gp.CloseFigure()
- g.DrawPath(p, gp)
- gp.Dispose()
- End Sub
- Private Enum MouseState
- None
- Over
- Down
- End Enum
- Private state As MouseState = MouseState.None
- Protected Overrides Sub OnMouseEnter(e As EventArgs)
- state = MouseState.Over
- MyBase.OnMouseEnter(e)
- End Sub
- Protected Overrides Sub OnMouseLeave(e As EventArgs)
- state = MouseState.None
- MyBase.OnMouseLeave(e)
- End Sub
- Protected Overrides Sub OnMouseDown(mevent As MouseEventArgs)
- state = MouseState.Down
- MyBase.OnMouseDown(mevent)
- End Sub
- Protected Overrides Sub OnMouseUp(mevent As MouseEventArgs)
- state = MouseState.Over
- MyBase.OnMouseUp(mevent)
- End Sub
- Protected Overrides Sub OnPaint(pevent As PaintEventArgs)
- Dim g As Graphics = pevent.Graphics
- g.Clear(Color.White)
- Dim bg As New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.FromArgb(220, 220, 220), LinearGradientMode.Vertical)
- g.FillRectangle(bg, Me.ClientRectangle)
- Select Case state
- Case MouseState.Over
- g.FillRectangle(New SolidBrush(Color.FromArgb(10, Color.Black)), Me.ClientRectangle)
- Exit Select
- Case MouseState.Down
- g.FillRectangle(New SolidBrush(Color.FromArgb(40, Color.Black)), Me.ClientRectangle)
- Exit Select
- End Select
- DrawRoundRect(g, Pens.Gray, 0, 0, Me.Width - 1, Me.Height - 1, _
- 3)
- TextRenderer.DrawText(g, Me.Text, Me.Font, Me.ClientRectangle, Me.ForeColor, TextFormatFlags.VerticalCenter Or TextFormatFlags.HorizontalCenter)
- End Sub
- End Class
- End Namespace
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement