Private Sub frmStart_Paint(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim oRect As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim oBrush As New LinearGradientBrush(oRect, Color.LightSteelBlue, _
          Color.Black, LinearGradientMode.Vertical)
        e.Graphics.FillRectangle(oBrush, oRect)
    End Sub