Version =20 VersionRequired =20 Begin Form DividingLines = NotDefault AllowDesignChanges = NotDefault DefaultView =0 PictureAlignment =2 DatasheetGridlinesBehavior =3 GridY =10 Width =4875 DatasheetFontHeight =11 ItemSuffix =3 Right =20460 Bottom =12735 DatasheetGridlinesColor =14806254 RecSrcDt = Begin 0xfa6eb94d13d9e440 End DatasheetFontName ="Calibri" FilterOnLoad =0 ShowPageMargins =0 DisplayOnSharePointSite =1 DatasheetAlternateBackColor =15921906 DatasheetGridlinesColor12 =0 FitToScreen =1 DatasheetBackThemeColorIndex =1 BorderThemeColorIndex =3 ThemeFontIndex =1 ForeThemeColorIndex =0 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 Begin Begin Label BackStyle =0 FontSize =11 FontName ="Calibri" ThemeFontIndex =1 BackThemeColorIndex =1 BorderThemeColorIndex =0 BorderTint =50.0 ForeThemeColorIndex =0 ForeTint =50.0 GridlineThemeColorIndex =1 GridlineShade =65.0 End Begin CommandButton Width =1701 Height =283 FontSize =11 FontWeight =400 FontName ="Calibri" ForeThemeColorIndex =0 ForeTint =75.0 GridlineThemeColorIndex =1 GridlineShade =65.0 UseTheme =1 Shape =1 Gradient =12 BackThemeColorIndex =4 BackTint =60.0 BorderLineStyle =0 BorderColor =16777215 BorderThemeColorIndex =4 BorderTint =60.0 ThemeFontIndex =1 HoverThemeColorIndex =4 HoverTint =40.0 PressedThemeColorIndex =4 PressedShade =75.0 HoverForeThemeColorIndex =0 HoverForeTint =75.0 PressedForeThemeColorIndex =0 PressedForeTint =75.0 End Begin TextBox AddColon = NotDefault FELineBreak = NotDefault BorderLineStyle =0 Width =1701 LabelX =-1701 FontSize =11 FontName ="Calibri" AsianLineBreak =1 BackThemeColorIndex =1 BorderThemeColorIndex =1 BorderShade =65.0 ThemeFontIndex =1 ForeThemeColorIndex =0 ForeTint =75.0 GridlineThemeColorIndex =1 GridlineShade =65.0 End Begin Section Height =2437 Name ="Détail" AlternateBackColor =15921906 AlternateBackThemeColorIndex =1 AlternateBackShade =95.0 BackThemeColorIndex =1 Begin Begin TextBox OverlapFlags =85 IMESentenceMode =3 Left =1984 Top =396 Width =1757 Height =315 BorderColor =10921638 ForeColor =4210752 Name ="TestDisplay" GridlineColor =10921638 LayoutCachedLeft =1984 LayoutCachedTop =396 LayoutCachedWidth =3741 LayoutCachedHeight =711 Begin Begin Label OverlapFlags =85 Left =285 Top =390 Width =1140 Height =315 BorderColor =8355711 ForeColor =8355711 Name ="Étiquette1" Caption ="TestDisplay" GridlineColor =10921638 LayoutCachedLeft =285 LayoutCachedTop =390 LayoutCachedWidth =1425 LayoutCachedHeight =705 End End End Begin CommandButton OverlapFlags =85 Left =1247 Top =1190 Width =2608 Height =397 TabIndex =1 ForeColor =4210752 Name ="TestCommand" Caption ="TestVBA" OnClick ="[Event Procedure]" GridlineColor =10921638 LayoutCachedLeft =1247 LayoutCachedTop =1190 LayoutCachedWidth =3855 LayoutCachedHeight =1587 BackColor =14136213 BorderColor =14136213 HoverColor =15060409 PressedColor =9592887 HoverForeColor =4210752 PressedForeColor =4210752 WebImagePaddingLeft =2 WebImagePaddingTop =2 WebImagePaddingRight =1 WebImagePaddingBottom =1 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 TestCommand_Click() Me.TestDisplay.Value = "hello world!" End Sub