[color=008000]'einfach einen CommandButton eine PictureBox und ein LimOCX 
' 
[color=008000]'in eine Form einfügen pfad und dateinamen des .lim anpassen 
' 
[color=008000]'und starten 
 
[color=000080]Private Declare Function [/color][color=000000]BitBlt _
  [/color][color=000080]Lib [/color][color=000000]"gdi32" _
  [/color][color=000000]([/color][color=000080]ByVal[/color][color=000000] _
  [/color][color=000000]hDestDC [/color][color=000080]As _
  [color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
  [/color][color=000000]x [/color][color=000080]As _
  [color=000080]Long[/color][color=000000], [/color][color=000000]_ [/color]
[color=000080]ByVal [/color][color=000000]y [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
[/color][color=000000]nWidth [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
[/color][color=000000]nHeight [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
[/color][color=000000]hSrcDC [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000000]_ [/color]
[color=000080]ByVal [/color][color=000000]xSrc [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
[/color][color=000000]ySrc [/color][color=000080]As _
[color=000080]Long[/color][color=000000], [/color][color=000080]ByVal _
[/color][color=000000]dwRop [/color][color=000080]As _
[color=000080]Long[/color][color=000000]) [/color][color=000080]As Long [/color]
 
[color=000080]Private Sub [/color][color=000000]Command1_Click() [/color]
[color=000000]    [color=008000]'BitBlt Ziel-DeviceContext, Ziel-x, Ziel-y, 
' Ziel-Breite, Ziel-Höhe, 
[color=000000]    [color=008000]'Quell-DeviceContext (form1.hdc), Quell-x ( 
' limocx1.left), Quell-y (limocx1.top), Operation 
[color=000000]    BitBlt Picture1.hDC, 1, 1, 300, 200, Me.hDC, 1, 1, vbSrcCopy _
  [/color]
[color=000000]    [color=008000]'nach picture1 kopiertes bild der picture 
' eigenschaft zuweisen 
[color=000000]    Picture1.Picture = Picture1.Image [/color]
[color=000000]    [color=008000]'picture des picture1-controls abspeichern 
' 
[color=000000]    SavePicture Picture1.Picture, "c:\test.bmp" [/color]
[color=000080]End Sub [/color]
 
[color=000080]Private Sub [/color][color=000000]Form_Load() [/color]
[color=000000]    [color=008000]'form größe setzen 
[color=000000]    [color=008000]'controls platzieren und eigenschaften setzen 
' 
[color=000000]    [/color][color=000080]With Me [/color]
[color=000000]        .ScaleMode = vbPixels [/color]
[color=000000]        .Width = 4770 [/color]
[color=000000]        .Height = 7380 [/color]
[color=000000]    [/color][color=000080]End With [/color]
[color=000000]    [/color][color=000080]With [/color][color=000000]Picture1 _
  [/color]
[color=000000]        .ScaleMode = vbPixels [/color]
[color=000000]        .AutoRedraw = [/color][color=000080]True [/color]
[color=000000]        .Appearance = 0 [/color]
[color=000000]        .BorderStyle = 0 [/color]
[color=000000]        .Top = 260 [/color]
[color=000000]        .Left = 1 [/color]
[color=000000]        .Width = 300 [/color]
[color=000000]        .Height = 200 [/color]
[color=000000]    [/color][color=000080]End With [/color]
[color=000000]    [/color][color=000080]With [/color][color=000000]Command1 _
  [/color]
[color=000000]        .Left = 110 [/color]
[color=000000]        .Top = 215 [/color]
[color=000000]        .Caption = "Blit2PictureBox" [/color]
[color=000000]    [/color][color=000080]End With [/color]
[color=000000]    [/color][color=000080]With [/color][color=000000]LimOCX1 _
  [/color]
[color=000000]        .Left = 1 [/color]
[color=000000]        .Top = 1 [/color]
[color=000000]        .Width = 300 [/color]
[color=000000]        .Height = 200 [/color]
[color=000000]        .SetFileName "c:\beech3.lim" [/color]
[color=000000]    [/color][color=000080]End With [/color]
[color=000080]End Sub [/color]

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...