Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        PictureBox1.Image = getExpansionIcon(TextBox1.Text)
    End Sub
 
    Private Function getExpansionIcon(ByVal expansion As String) As Image
        'Was muss hier rein?
    End Function