Public Class Form2
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim bmp As New Bitmap("F:\Test\temp1.jpg")
        Form1.bmp = bmp
        Form1.f1.Refresh()
    End Sub
 
End Class

Public Class Form1
 
    Public Shared f1 As Form1
    Public Shared bmp As Bitmap
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        f1 = Me
    End Sub
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        If bmp Is Nothing Then Return
        e.Graphics.DrawImage(bmp, Me.ClientRectangle)
    End Sub
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist