drawline

Imports System
Imports System.Windows.Forms
Imports System.Drawing
Public Module modmain
   Sub Main()
      'The KPD-Team 2001
      'URL: http://www.allapi.net/dotnet/
      'E-Mail: KPDTeam@Allapi.net
      Dim theForm as MainForm = new MainForm()
      theForm.Size = new Size(500, 350)
      theForm.Text = "Visual Basic.NET"
      theForm.ShowDialog()
   End Sub
End Module
Public Class MainForm
Inherits Form
   Protected Overrides Sub OnPaint(e as PaintEventArgs)
      e.Graphics.Clear(Me.BackColor)
      e.Graphics.DrawLine(new Pen(Color.Blue), 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
   End Sub
End Class

Close this window