Dim r As New Random
Dim Ereignis As Integer = r.Next(1, 10)
 
        Select Case Ereignis
            Case 1
                'Banküberfall
            Case 2
                'Börsensturz
            Case Else
                'Kei Ereignis
        End Select