REM Beispiel : DotNet Vor Ausfuehrung bestimmte Zeit warten. REM IDE : SharpDevelop Version 1.0 Build 33919.1129 REM Plattform : Windows 98 REM Hinweis : Referenzieren Sie zu System.Drawing Imports System Imports System.Windows.Forms Imports System.Drawing Namespace GeneratedForm Module Main Sub Main Dim fMainForm As New MyForm fMainForm.ShowDialog() End Sub Public Class MyForm Inherits System.Windows.Forms.Form Private WithEvents cmdTest As System.Windows.Forms.Button Public Sub New() MyBase.New Me.InitializeComponent End Sub Private Sub cmdTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTest.Click 'Bis zur Anzeige der MsgBox wird 2 Sekunden (2000 msek.) gewartet. System.Threading.Thread.Sleep(2000) MessageBox.Show("Hallo Welt...", "Info...", MessageBoxButtons.OK, _ MessageBoxIcon.Information) End Sub Private Sub InitializeComponent() Me.cmdTest = New System.Windows.Forms.Button Me.SuspendLayout 'cmdTest Me.cmdTest.Location = New System.Drawing.Point(112, 72) Me.cmdTest.Name = "cmdTest" Me.cmdTest.Size = New System.Drawing.Size(80, 24) Me.cmdTest.TabIndex = 0 Me.cmdTest.Text = "&Test..." 'MyForm Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(292, 180) Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cmdTest}) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "MyForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Testform <Vor Ausfuehrung bestimmte Zeit warten>" Me.ResumeLayout(False) End Sub End Class End Module End Namespace