Attribute VB_Name = "Modul1"
Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal _
  nWidth As Long, ByVal nHeight As Long) As Long
Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As _
Long) As Long
Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) _
As Long
Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long
Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Declare Function CloseClipboard Lib "user32" () As Long
Declare Function EmptyClipboard Lib "user32" () As Long
Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal _
  hMem As Long) As Long
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, _
ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As _
Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
 
Global Const CF_Bitmap = 2       ' Clipboard-Handle auf Bitmap
Global Const SRCCopy = &HCC0020  ' Verknüpfungsart = Kopieren
 
    Type BP
         PBasis As String * 20
         PVerwendung As String * 200
         PC As String * 80
         cWrite As String * 20
    End Type
 
    Public PrgInfo As BP
    Public driveUserIni$
    Dim NetzDirChargen$
    Dim StartArt%
    Dim Programmbezeichnung$
 
Type SH
     MessDat As Date
     Anlage As String * 3
     Charge As String * 5
     Haspel As String * 10
     Legierung As String * 20
     PRMQ As String * 20
     SollBs As Single
     SollBreite As Single
     SollFluss As Single
     Hmax As Single
End Type
    Dim MatHeader As SH