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.DrawRectangle(new Pen(Color.Red), 10, 10, 100, 150) End Sub End Class |