دوست عزیز با متد DrawToBitmap می توانید یک عکس از فرم بگیرید این هم یک مثال

 Dim b As New Bitmap(Me.Width, Me.Height)

        Me.DrawToBitmap(b, New Rectangle(0, 0, Me.Width, Me.Height))