VERSION 5.00 Object = "{6BF52A50-394A-11D3-B153-00C04F79FAA6}#1.0#0"; "wmp.dll" Begin VB.Form Form3 BackColor = &H00C0FFFF& Caption = "Mouvement rapide " ClientHeight = 6915 ClientLeft = 120 ClientTop = 450 ClientWidth = 11640 LinkTopic = "Form3" ScaleHeight = 6915 ScaleWidth = 11640 StartUpPosition = 3 'Windows Default Begin VB.TextBox ZIZORA Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2760 TabIndex = 14 Top = 5640 Width = 855 End Begin VB.TextBox KIKORA Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 1440 TabIndex = 12 Top = 5640 Width = 855 End Begin VB.TextBox ZITO BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 5760 TabIndex = 4 Top = 1320 Width = 855 End Begin VB.TextBox YITO Alignment = 2 'Center BackColor = &H0000FFFF& BorderStyle = 0 'None BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 4560 TabIndex = 3 Top = 1320 Width = 855 End Begin VB.CommandButton Command1 BackColor = &H0000FFFF& Caption = "Retour" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty Height = 735 Left = 13080 TabIndex = 2 Top = 7560 Width = 1695 End Begin VB.Label Label12 BackStyle = 0 'Transparent Caption = "Séquance vidéo" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00FFFFFF& Height = 675 Left = 7920 TabIndex = 17 Top = 3840 Width = 1290 End Begin VB.Label Label11 BackStyle = 0 'Transparent Caption = " Z: coordonnée absolu " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 855 Left = 11400 TabIndex = 16 Top = 1200 Width = 3495 End Begin VB.Label Label10 BackStyle = 0 'Transparent Caption = " X: coordonnée absolu ( diamètre)" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 11400 TabIndex = 15 Top = 360 Width = 3735 End Begin VB.Label Label9 BackStyle = 0 'Transparent Caption = "Z ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2520 TabIndex = 13 Top = 5640 Width = 2055 End Begin VB.Label Label8 BackColor = &H00FFC0FF& Caption = " N.. G00 X" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 240 TabIndex = 11 Top = 5640 Width = 4455 End Begin VB.Label Label7 BackStyle = 0 'Transparent Caption = "N.. 04 S100 G97 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 360 TabIndex = 10 Top = 5040 Width = 3855 End Begin VB.Label Label6 BackStyle = 0 'Transparent Caption = "N.. MO6 T01;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 360 TabIndex = 9 Top = 4560 Width = 3975 End Begin VB.Label Label5 BackStyle = 0 'Transparent Caption = "N.. G21 ;" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 360 TabIndex = 8 Top = 4080 Width = 3975 End Begin VB.Label Label3 BackColor = &H00FFFFFF& Height = 3375 Left = 240 TabIndex = 7 Top = 3840 Width = 6255 End Begin WMPLibCtl.WindowsMediaPlayer WindowsMediaPlayer1 Height = 3615 Left = 7800 TabIndex = 6 Top = 3600 Width = 6975 URL = "C:\Users\user\Downloads\video-1597330157.mp4" rate = 1 balance = 0 currentPosition = 0 defaultFrame = "" playCount = 1 autoStart = -1 'True currentMarker = 0 invokeURLs = -1 'True baseURL = "" volume = 50 mute = 0 'False uiMode = "full" stretchToFit = 0 'False windowlessVideo = 0 'False enabled = -1 'True enableContextMenu= -1 'True fullScreen = 0 'False SAMIStyle = "" SAMILang = "" SAMIFilename = "" captioningID = "" enableErrorDialogs= 0 'False _cx = 12303 _cy = 6376 End Begin VB.Image Image1 Height = 3495 Left = 6840 Picture = "Form3.frx":0000 Stretch = -1 'True Top = 0 Width = 4215 End Begin VB.Line Line3 X1 = 2160 X2 = 2760 Y1 = 480 Y2 = 480 End Begin VB.Line Line2 X1 = 2160 X2 = 2640 Y1 = 2160 Y2 = 2160 End Begin VB.Line Line1 X1 = 2160 X2 = 2160 Y1 = 480 Y2 = 2160 End Begin VB.Label Label4 BackStyle = 0 'Transparent Caption = " Z" BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 375 Left = 5400 TabIndex = 5 Top = 1320 Width = 255 End Begin VB.Label Label2 BackColor = &H00FFFFFF& BackStyle = 0 'Transparent Caption = " Syntaxe G00 X " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 495 Left = 2400 TabIndex = 1 Top = 1320 Width = 5175 End Begin VB.Label Label1 Alignment = 2 'Center BackColor = &H00FFFFFF& BackStyle = 0 'Transparent Caption = " G00 Mouvement rapide " BeginProperty Font Name = "Arial Rounded MT Bold" Size = 12 Charset = 0 Weight = 400 Underline = 0 'False Italic = -1 'True Strikethrough = 0 'False EndProperty ForeColor = &H00000000& Height = 735 Left = 1920 TabIndex = 0 Top = 840 Width = 3975 End End Attribute VB_Name = "Form3" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Command1_Click() Form4.Show End Sub Private Sub YITO_Change() KIKORA = YITO End Sub Private Sub ZITO_Change() ZIZORA = ZITO End Sub