Public Class Form1
 
Dim Pic(3) As Image
 
Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
 
    Pic(0) = My.Resources.Semcon1
    Pic(1) = My.Resources.Semcon2
    Pic(2) = My.Resources.Semcon3
 
End Sub
 
 
Private Sub Button1_Click(ByVal sender As System.Object, _
     ByVal e As System.EventArgs) Handles Button1.Click
 
    Static Nm As Integer = 2
 
    If TextBox1.Text = "40508-1" Then
      'Anzeige von Img 0 bei bestimmter Zahl
      PictureBox1.Image = Pic(0)
    Else
       If Nm = 2 Then Nm = 1 Else Nm = 2
       PictureBox1.Image = Pic(Nm)
    End If
End Sub
 
End Class