Version =20
VersionRequired =20
Checksum =-1658172634
Begin Form
    AutoResize = NotDefault
    PopUp = NotDefault
    Modal = NotDefault
    RecordSelectors = NotDefault
    MaxButton = NotDefault
    MinButton = NotDefault
    ControlBox = NotDefault
    AutoCenter = NotDefault
    NavigationButtons = NotDefault
    CloseButton = NotDefault
    DividingLines = NotDefault
    AllowDesignChanges = NotDefault
    DefaultView =0
    ScrollBars =0
    TabularFamily =0
    BorderStyle =3
    PictureAlignment =2
    DatasheetGridlinesBehavior =3
    GridY =10
    Width =4997
    DatasheetFontHeight =10
    ItemSuffix =5
    Left =11670
    Top =4050
    Right =17025
    Bottom =6390
    DatasheetGridlinesColor =12632256
    RecSrcDt = Begin
        0xa719efa54730e440
    End
    DatasheetFontName ="Arial"
    Begin
        Begin Label
            BackStyle =0
            FontName ="Tahoma"
        End
        Begin CommandButton
            Width =1701
            Height =283
            FontSize =8
            FontWeight =400
            ForeColor =-2147483630
            FontName ="Tahoma"
        End
        Begin TextBox
            FELineBreak = NotDefault
            SpecialEffect =2
            OldBorderStyle =0
            Width =1701
            LabelX =-1701
            FontName ="Tahoma"
            AsianLineBreak =255
        End
        Begin Section
            Height =2054
            BackColor =-2147483633
            Name ="Detailbereich"
            GUID = Begin
                0x4447d696a329ba4685c8db0e11db35be
            End
            Begin
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =3176
                    Top =225
                    Width =1821
                    Height =330
                    FontSize =12
                    FontWeight =700
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="wvdatum"
                    Format ="Short Date"
                    FontName ="Arial"
                    GUID = Begin
                        0xdb1a248aac490145b74b16376c9fbb6d
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Top =225
                            Width =1980
                            Height =330
                            FontSize =12
                            FontWeight =700
                            BackColor =-2147483633
                            ForeColor =-2147483630
                            Name ="Bezeichnungsfeld90"
                            Caption ="WV Datum:"
                            FontName ="Arial"
                            GUID = Begin
                                0xf210035bbc573c4281a7b76df71a5ec3
                            End
                        End
                    End
                End
                Begin TextBox
                    SpecialEffect =0
                    OldBorderStyle =1
                    OverlapFlags =85
                    BackStyle =0
                    IMESentenceMode =3
                    Left =3176
                    Top =690
                    Width =1821
                    Height =330
                    FontSize =12
                    FontWeight =700
                    TabIndex =1
                    BackColor =-2147483643
                    ForeColor =-2147483640
                    Name ="wvuhrzeit"
                    FontName ="Arial"
                    InputMask ="00:00;0;#"
                    GUID = Begin
                        0x0b1ba0a1ed4313438a7d66c18bf148e0
                    End
                    Begin
                        Begin Label
                            OverlapFlags =85
                            Top =690
                            Width =2115
                            Height =330
                            FontSize =12
                            FontWeight =700
                            BackColor =-2147483633
                            ForeColor =-2147483630
                            Name ="Bezeichnungsfeld92"
                            Caption ="WV Uhrzeit:"
                            FontName ="Arial"
                            GUID = Begin
                                0x4350e4d66a4e3b448ce44801babb0d46
                            End
                        End
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =120
                    Top =1185
                    Width =576
                    Height =576
                    TabIndex =2
                    Name ="Befehl0"
                    Caption ="Befehl0"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadadadadadadadaadadadadadadadaddad000000000dada ,
                        0xad03838380780dadda0fbfbfb0000adaada0fbfbfb0dadaddad0bfbfbf0adada ,
                        0xadad0fbfbfb0adaddada03838380dadaadada07777780daddad0000000070ada ,
                        0xada0fbfbfb070daddada00000000dadaadadadadadadadaddadadadadadadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Makro ausführen"
                    GUID = Begin
                        0xb6993b4dd31b0c4d85616c5eda0f3bd4
                    End
                End
                Begin CommandButton
                    OverlapFlags =85
                    Left =4260
                    Top =1185
                    Width =576
                    Height =576
                    TabIndex =3
                    Name ="Befehl1"
                    Caption ="Befehl1"
                    OnClick ="[Event Procedure]"
                    PictureData = Begin
                        0x2800000010000000100000000100040000000000800000000000000000000000 ,
                        0x0000000000000000000000000000800000800000008080008000000080008000 ,
                        0x8080000080808000c0c0c0000000ff00c0c0c00000ffff00ff000000c0c0c000 ,
                        0xffff0000ffffff00dadad0dadadadadaadad00adadadadaddad030dadadadada ,
                        0xad0330adadadadad0033300000000adaa03330ff0dadadadd03300ff0adad4da ,
                        0xa03330ff0dad44add03330ff0ad44444a03330ff0d444444d03330ff0ad44444 ,
                        0xa0330fff0dad44add030ffff0adad4daa00fffff0dadadadd00000000adadada ,
                        0xadadadadadadadad000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000000000000000000000000000000000000000000000000000 ,
                        0x0000000000000000
                    End
                    ObjectPalette = Begin
                        0x0003100000000000800000000080000080800000000080008000800000808000 ,
                        0x80808000c0c0c000ff000000c0c0c000ffff00000000ff00c0c0c00000ffff00 ,
                        0xffffff0000000000
                    End
                    ControlTipText ="Formular schließen"
                    GUID = Begin
                        0xd007888e61639648b59bb51be73bf398
                    End
                End
                Begin TextBox
                    Visible = NotDefault
                    Locked = NotDefault
                    TabStop = NotDefault
                    OverlapFlags =85
                    IMESentenceMode =3
                    Left =3118
                    Top =1814
                    TabIndex =4
                    Name ="LEER"
                    GUID = Begin
                        0x63fd827a441ead4b8d64cbdbe2ea976a
                    End
                End
            End
        End
    End
End
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database

Private Sub Befehl0_Click()
On Error GoTo Err_Befehl0_Click

    Dim stDocName As String

    stDocName = "Mkr_supporterlwv"
    DoCmd.RunMacro stDocName

Exit_Befehl0_Click:
    Exit Sub

Err_Befehl0_Click:
    MsgBox Err.Description
    Resume Exit_Befehl0_Click
    
End Sub
Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click


    DoCmd.Close

Exit_Befehl1_Click:
    Exit Sub

Err_Befehl1_Click:
    MsgBox Err.Description
    Resume Exit_Befehl1_Click
    
End Sub