Public Class Form1
    Dim MeineForm2 As New Form2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        MeineForm2.ShowDialog()
    End Sub
End Class

Public Class Form2
    Dim z As Integer
 
    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Label1.Text = z.ToString
    End Sub
    Private Sub Form2_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        Label1.Text = z.ToString
        Label1.Refresh()
        z = z + 1
    End Sub
End Class

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

Beitrag wurde zuletzt am 30.12.11 um 09:45:07 editiert.