Okay…dann würde ich also eine Funktion deklarieren…
Aber was wenn ich diese Situation habe:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(„Das Programm wurde erfolgreich gestartet.“, MsgBoxStyle.OkOnly, „Herzlich willkommen!“)
Dim strName As String
strName = InputBox(„Bitte geben Sie einen Benutzernamen ein:“, „InputUsername“)
MsgBox("Nun, " & strName & ". " & vbCrLf & „Dieses Programm gibt Ihnen Auskünfte über die von uns auf Ihrem Notebook vorinstallierten Programme!“, _
MsgBoxStyle.Information, „Info Nanowaris Corporation Program preinstalling“)
If MsgBox(„Ist der Benutzername '“ & strName & „’ stellvertretend für Simone- oder Raul Pfänder?“, MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, „Wer sind Sie?“) = vbYes Then
MsgBox(„Okay! Sie können fortfahren.“, MsgBoxStyle.Information, „In Ordnung“)
Else
MsgBox(„Sie sind nicht berechtigt, dieses Programm auszuführen!“, MsgBoxStyle.Critical, „Abbruch“)
Me.Close()
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
End Class
und in letztrigem Private Sub Label2_Click den Benutzernamen von Inputbox Private Sub 1 in strName anzeigen lassen will?