Avec la version 2005, on peut faire comme ceci :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     'appuie sur la touche Impécr
     System.Windows.Forms.SendKeys.Send("+{PRTSC}")

     'active un timer le temps que la capture se fasse
     Timer1.Interval = 100
     Timer1.Enabled = True

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
      Timer1.Enabled = False

      'sauvegarde de la capture d'écran
      Clipboard.GetImage.Save("c:\screen.jpg")

End Sub

mais je ne sais pas si ça fonctionne avec les précédentes versions.

Avec la version 2003, à la place de GetImage().Save, il faut passer par une variable Bitmap comme ceci :

Dim image As Bitmap
image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
image.Save("c:\screen.jpg")