Public Name as String
public Frage as byte
 
-------------------------------------------------------------------------------_
  ----------------
 
Private Sub Command1_Click()
End
End Sub
-------------------------------------------------------------------------------_
  -----------------
Private Sub Command2_Click() 'Ich nehme mal an der soll hier auf Weiter klicken
Frage = Frage+1
Picture1.Picture=BildAnzeigen ' Falls Bild sich pro Frage ändern soll 
txtFrage.text = FrageAnzeigen
 
End Sub
-------------------------------------------------------------------------------_
  ------------------
Private Sub Form_Load()
 
 
Name = InputBox("Bitte gib deinen Namen ein", "Name eingeben")
Label1.Caption = "Hallo " & Name & "!"                         ' Label1. 
' Begrüßung
Frage = 0
 
Picture1.Picture = LoadPicture("H:\blueprint-Dateien\programm\iris_siri.gif") ' 
' Bild Iris-Siri
 
End Sub
 
Private Function BildAnzeigen()
Select Case Frage
Case 0:
BildAnzeigen=H:\blueprint-Dateien\programm\iris_siri.gif
Case 1:
BildAnzeigen=H:\blueprint-Dateien\programm\iris_siri1.gif
Case 2:
BildAnzeigen=H:\blueprint-Dateien\programm\iris_siri2.gif
usw.....
End Select
End Function 
 
Private Function FrageAnzeigen()
SelectCase Frage
Case 0:
FrageAnzeigen = "Was habe ich dann und dann gesagt ?"
usw...Eend Select
End Function