Private Sub GenerateImage()
        Dim g As Graphics
        Dim b1 As Bitmap
        Dim b2 As Bitmap
 
        Dim selectedFile As String = DirListBox.SelectedItem.ToString
        Dim selectedFilePath As String = Path.Combine(DirListBox.Tag.ToString, _
          selectedFile)
        Dim loadedImage As Image = Image.FromFile(selectedFilePath)
 
        b1 = New Bitmap(loadedImage)
        b2 = New Bitmap(MotivBox.Image) 
        b2.MakeTransparent(Color.White)
        g = Graphics.FromImage(b1)
 
        g.DrawImage(b2, 0, 0)
        CompletePicBox.Image = b1 
        g.Dispose() 
    End Sub