Private Sub frmspiel_show(sender As Object, e As EventArgs) Handles _
      MyBase.Load
 
        btnauswahl.Text = "Aktuelle Auswahl: " & Chr(13) & Chr(13) & _
          pubvarmodul.welleaktuell
        lbxspieletext.Items.Add(pubvarmodul.welleaktuell)
 
    End Sub

'Dadurch sehe ich meine Fehler:
Option Strict On
 
Public Class wellenauswahl
 
    Private Sub wellewechseln()
 
        frmspiel.Show()
        Me.Hide()
 
    End Sub
 
    Private Sub btnwelle1_Click(sender As Object, e As EventArgs) Handles _
      btnwelle1.Click
 
        pubvarmodul.welleaktuell = 1
        wellewechseln()
 
 
    End Sub
 
    Private Sub btnwelle2_Click(sender As Object, e As EventArgs) Handles _
      btnwelle2.Click
 
        pubvarmodul.welleaktuell = 2
        wellewechseln()
 
    End Sub
 
    Private Sub btnwelle3_Click(sender As Object, e As EventArgs) Handles _
      btnwelle3.Click
 
        pubvarmodul.welleaktuell = 3
        wellewechseln()
 
    End Sub
 
    Private Sub btnwelle4_Click(sender As Object, e As EventArgs) Handles _
      btnwelle4.Click
 
        pubvarmodul.welleaktuell = 4
        wellewechseln()
 
    End Sub
 
    Private Sub btnwelle5_Click(sender As Object, e As EventArgs) Handles _
      btnwelle5.Click
 
        pubvarmodul.welleaktuell = 5
        wellewechseln()
 
    End Sub
End Class