Private r As RectangleF 
    Private m_image As Image = Image.FromFile("g:\picture.bmp") 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        Try 
            r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height) 
        Catch ex As Exception 
            MessageBox.Show(ex.Message) 
        End Try 
    End Sub 

    Private Sub mydrawimage() 
        Try 
            Dim g As Graphics = Me.CreateGraphics 
            g.DrawImage(m_image, r) 
            g.Dispose() 
        Catch ex As Exception 

        End Try 
    End Sub 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint 

        mydrawimage() 

    End Sub 

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize 

        r = New RectangleF(0, 0, Me.ClientSize.Width, Me.ClientSize.Height) 

        mydrawimage() 
    End Sub