Form Spørsmål

Jeg har et program som skal vise en form også noget andet også ikke vise formen mere

Problemet er at den ikke når at vise formen helt klart og tydligt inde den går igang med den anden kode

Jeg har prøvet uden held med

Private Sub csSysTray1_LeftClick()
  Set Picture1.Picture = CaptureScreen()
  frmvis.Show
  DoEvents
  PrintPictureToFitPage Printer, Picture1.Picture
  Printer.EndDoc
  Unload frmvis
End Sub