VERSION 5.00 Begin VB.Form Form2 Caption = "Form2" ClientHeight = 3270 ClientLeft = 60 ClientTop = 345 ClientWidth = 8130 LinkTopic = "Form2" ScaleHeight = 3270 ScaleWidth = 8130 StartUpPosition = 3 'Windows Default Begin VB.CommandButton Uscita Caption = "Esci" Height = 495 Left = 6120 TabIndex = 7 Top = 2760 Width = 1935 End Begin VB.HScrollBar Scaling Height = 375 Left = 2520 Max = 40 TabIndex = 6 Top = 2760 Value = 10 Width = 3255 End Begin VB.VScrollBar RotZ Height = 2175 Left = 7440 Max = 100 Min = -100 TabIndex = 5 Top = 360 Width = 375 End Begin VB.VScrollBar RotX Height = 2175 Left = 6960 Max = 100 Min = -100 TabIndex = 4 Top = 360 Width = 375 End Begin VB.HScrollBar RotY Height = 375 Left = 4080 Max = 200 Min = -200 TabIndex = 3 Top = 1200 Width = 2775 End Begin VB.VScrollBar PosZ Height = 2055 Left = 3600 Max = 100 Min = -100 TabIndex = 2 Top = 360 Width = 375 End Begin VB.VScrollBar PosY Height = 2055 Left = 3000 Max = 100 Min = -100 TabIndex = 1 Top = 360 Width = 375 End Begin VB.HScrollBar PosX Height = 375 Left = 0 Max = 100 Min = -100 TabIndex = 0 Top = 1200 Width = 2775 End Begin VB.Label Label9 Caption = "Scala" Height = 255 Left = 1680 TabIndex = 16 Top = 2760 Width = 855 End Begin VB.Label Label8 Caption = "Z" Height = 255 Left = 7560 TabIndex = 15 Top = 0 Width = 255 End Begin VB.Label Label7 Caption = "X" Height = 255 Left = 7080 TabIndex = 14 Top = 0 Width = 255 End Begin VB.Label Label6 Caption = "Y" Height = 255 Left = 5400 TabIndex = 13 Top = 840 Width = 255 End Begin VB.Label Label5 Caption = "Z" Height = 255 Left = 3720 TabIndex = 12 Top = 0 Width = 255 End Begin VB.Label Label4 Caption = "Y" Height = 255 Left = 3120 TabIndex = 11 Top = 0 Width = 255 End Begin VB.Label Label3 Caption = "X" Height = 255 Left = 1320 TabIndex = 10 Top = 840 Width = 255 End Begin VB.Label Label2 Caption = "Rotazione" Height = 255 Left = 5040 TabIndex = 9 Top = 120 Width = 975 End Begin VB.Label Label1 Caption = "Traslazione" Height = 255 Left = 1080 TabIndex = 8 Top = 120 Width = 975 End End Attribute VB_Name = "Form2" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub Uscita_Click() End End Sub Private Sub Scaling_Change() Form1.Scaling = Scaling.Value / 10 End Sub Private Sub PosX_Change() Form1.PosX = PosX.Value / 10 End Sub Private Sub PosY_Change() Form1.PosY = PosY.Value / 10 End Sub Private Sub PosZ_Change() Form1.PosZ = PosZ.Value / 10 End Sub Private Sub RotX_Change() Form1.RotX = RotX.Value End Sub Private Sub RotY_Change() Form1.RotY = RotY.Value End Sub Private Sub RotZ_Change() Form1.RotZ = RotZ.Value End Sub