[rogers311]

Private Sub frmSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
		Dim graCurrent As Graphics = e.Graphics
		Dim recCurrent As Rectangle, colCurrent As Color
		Dim sbCurrent As SolidBrush, penCurrent As Pen
		recCurrent = New Rectangle(0, 0, Me.Width, Me.Height)
		sbCurrent = New SolidBrush(Color.Blue)
		graCurrent.FillRectangle(sbCurrent, recCurrent)
		Dim pintXCurrent As Integer = ToInt32(Me.Width * 1.1)
		Dim pintYCurrent As Integer = ToInt32(Me.Height * 1.1)
		penCurrent = New Pen(Color.White, 4)
		graCurrent.DrawLine(penCurrent, 0, 0, pintXCurrent, pintYCurrent)



		Dim fntSplash As New Font("Arial", 14, FontStyle.Bold)
		graCurrent.DrawString("Depreciation Schedule", _
			fntSplash, Brushes.Purple, 5, 265)

	End Sub 

[Core]

Please, post your question in the main message body, not the topic description. Members cannot see what you are asking.

[rogers311]

I want to put two different colors on this splash screen. This splash screen is divided into two sides like triangles. I can only get one color on it. How do I add two different colors on this splash screen? This is my code.

Private Sub frmSplash_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
		Dim graCurrent As Graphics = e.Graphics
		Dim recCurrent As Rectangle, colCurrent As Color
		Dim sbCurrent As SolidBrush, penCurrent As Pen
		recCurrent = New Rectangle(0, 0, Me.Width, Me.Height)
		sbCurrent = New SolidBrush(Color.Blue)
		graCurrent.FillRectangle(sbCurrent, recCurrent)
		Dim pintXCurrent As Integer = ToInt32(Me.Width * 1.1)
		Dim pintYCurrent As Integer = ToInt32(Me.Height * 1.1)
		penCurrent = New Pen(Color.White, 4)
		graCurrent.DrawLine(penCurrent, 0, 0, pintXCurrent, pintYCurrent)



		Dim fntSplash As New Font("Arial", 14, FontStyle.Bold)
		graCurrent.DrawString("Depreciation Schedule", _
			fntSplash, Brushes.Purple, 5, 265)

	End Sub

[BetaWar]

Please don't post duplicate topics.

Merged.