Public Class Form1
 
    Sub New()
        InitializeComponent()
        ErstelleZufallszahlFuerButton()
    End Sub
 
    Private Sub ErstelleZufallszahlFuerButton()
        Dim Zahl As Double = New Random().NextDouble()
        AddHandler Button1.Click, Sub(sender As System.Object, e As _
          System.EventArgs)
                                      MessageBox.Show("Die Zahl ist " & Zahl)
                                  End Sub
    End Sub
End Class