Private Sub Command1_Click() Image1.Picture = LoadPicture(Text1) End Sub Private Sub Form_Load() End Sub