Paint v3.5

Topic created · 12 Mensajes · 1736 Visitas
  • **Aquí dejo un superpaint cutre que hice 😄
    Si no os gusta ajo, y si os gusta denada xD

    Usuario: UniversoJuegos
    Pass: Anghios
    [alinear-centro]Descargar Megaupload
    Descargar Mediafire[/alinear-centro]**

  • El paint no fue creado por el solo fue traducido sino mirar este video y su descripcion y vereis de donde se descarga "Su paint" [http://www.youtube.com/watch?v=PjppQh34Suw&feature=related][0]">[http://www.youtube.com/watch?v=PjppQh34][1] ... re=related

    [0]: <a href=
    [1]: http://www.youtube.com/watch?v=PjppQh34

  • xDDD eso parece un duelo xD

  • Fue creado por mi 100%, solo copié el diseño 🙂
    Si no te lo crees te pego aquí los values, verás como varían muchísimo 😛

  • Pegamelos aqui y los compruevo

  • Public Class PaintForm
    Dim g As Graphics
    Dim startLocation As Point
    Dim endLocation As Point
    Dim TempLocation As New Point(-1, -12)
    Dim TempLocation2 As New Point(-1, -12)
    Dim NumberOfAngle As Integer = 0
    Dim drawing As Boolean = False
    Dim CurrentColor As Color = Color.Red
    Dim CurrentColor2 As Color = Color.lightred
    Dim LastImage As New Bitmap(501, 501)
    Dim M1 As New Bitmap(5201, 5011)
    Dim M2 As New Bitmap(5801, 5701)
    Dim M3 As New Bitmap(5901, 5051)
    Dim M4 As New Bitmap(5001, 52)
    Dim PenWidth As Single = 1.0F
    Dim PenPoint As Pen
    Dim SavedFileAddress As String = ""
    Dim CurrentFont As Font

        Function FillRegion(ByVal X As Integer, ByVal Y As Integer, ByVal FillCol As Color) As Boolean
            If X < 0 Or X > LastImage.Width Or Y < 0 Or Y > LastImage.Height Then
                Return False
    
            End If
    
            Application.DoEvents()
    
            Dim points As Stack = New Stack
            points.Push(New Point(X, Y))
    
            Dim Pointcolor As Color = LastImage.GetPixel(X, Y)
    
    
            Do
                Dim p As Point = CType(points.Pop(), Point)
    
                LastImage.SetPixel(p.X, p.Y, FillCol)
    
                If UpPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                    points.Push(New Point(p.X, p.Y - 1))
                End If
    
            
                End If
    
            Loop While points.Count > 0
    
            Return True
    
        End Function
        Function UpPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (Y > 0) Then
                If (LastImage.GetPixel(X, Y - 1) = Col) Then
                    result = True
                End If
    
            End If
            Return result
    
        End Function
        Function DownPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (Y < IsHandleCreated)textbox1.text = noedit
            End If
            Return result
    
        End Function
        Function RightPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (X < LastImage.Width - 1) Then
                If (LastImage.GetPixel(X + 1, Y) = Col) Then
              
                    Return result
    
        End Function
        Function LeftPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
    
            Dim result As Boolean = False
            If (X > 0) Then
                If (LastImage.GetPixel(X - 1, Y) = Col) Then
                    result = True
                End If
            End If
    
    
            Return result
    
        End Function
        Sub UpdateImage()
    
            g = Graphics.FromImage(LastImage)
    
    
        End Sub
        Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
            PenPoint = New Pen(CurColor, PenWd)
    
        End Sub
        Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
            If e.Button = Windows.Forms.MouseButtons.Left Then
                If drawing = False Then
    
                    startLocation = e.Location
    
                    drawing = True
    
                    If MultiAngltextbox - Text Then
                        timer1.start()
                        Close()
                    End If
    
    
                End If
    
    
            End If
    
            ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
    
            If MultiAngleRadioButton.Checked Then
                If TempLocation.X <> -1 Then
                    endLocation = e.Location
                    g.DrawLine(PenPoint, TempLocation, TempLocation2)
                    TempLocation = New Point(-1, -1)
                End If
    
            End If
    
    
    
    
            End If
    
        End Sub
        Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
            If drawing = True Then
                If LineRadioButton.Checked Then
                    g.DrawLine(PenPoint, startLocation.X, startLocation.Y, e.X, e.Y)
                    startLocation = e.Location
                    UpdateImage()
    
                ElseIf EraserRadioButton.Checked Then
    
                    Dim p As New Pen(Color.White, PenWidth)
    
                    g.DrawLine(p, startLocation.X, startLocation.Y, e.X, e.Y)
                    startLocation = e.Location
                    UpdateImage()
    
                End If
    
            End If
        End Sub
        Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    
            If drawing Then
    
                If RectangleRadioButton.Checked Then
    
                    endLocation = e.Location
    
                    Dim s As Point
    
                    s.X = endLocation.X - startLocation.X
                    If s.X < 0 Then
                        startLocation.X = endLocation.X
    
                    End If
    
                    s.Y = endLocation.Y - startLocation.Y
                    If s.Y < 0 Then
                        startLocation.Y = endLocation.Y
    
                    End If
    
                    s.X = Math.Abs(s.X)
                    s.Y = Math.Abs(s.Y)
                    g.DrawRectangle(PenPoint, New Rectangle(startLocation, s))
    
                ElseIf GradientRectAngleRadioButton.Checked Then
    
                    endLocation = e.Location
    
                    Dim s As Point
    
                    LOCALITION = shutdown - s
    
                    If s.X < 0 Then
                        startLocation.X = endLocation.X
                    ElseIf s.X = 0 Then
                        s.X = 1
                    End If
    
                Else
                    s.X = s.Y
                End If
    
                g.DrawEllipse(PenPoint, New Rectangle(startLocation, s))
    
            ElseIf ArcRadioButton.Checked Then
                endLocation = e.Location
    
                Dim s As Point
    
                s.X = endLocation.X - startLocation.X
    
                If s.X < 0 Then
                    startLocation.X = endLocation.X
    
                End If
    
                s.Y = endLocation.Y - startLocation.Y
    
                If s.Y < 0 Then
                    startLocation.Y = endLocation.Y
    
                End If
    
                s.X = Math.Abs(s.X)
                s.Y = Math.Abs(s.Y)
    
                If s.X > s.Y Then
                    s.Y = s.X
                Else
                    s.X = s.Y
                End If
    
                g.DrawArc(PenPoint, New Rectangle(startLocation, s), 0, -180)
    
            ElseIf ParallelepipedRadioButton.Checked Then
    
                endLocation = e.Location
    
                Dim s As Point
    
                s.X = endLocation.X - startLocation.X
    
                If s.X < 0 Then
                    Dim tmp As Integer = startLocation.X
                    startLocation.X = endLocation.X
                    endLocation.X = tmp
                End If
    
                s.Y = endLocation.Y - startLocation.Y
    
                If s.Y < 0 Then
                    Dim tmp As Integer = startLocation.Y
                    startLocation.Y = endLocation.Y
                    endLocation.Y = tmp
                End If
    
                s.X = Math.Abs(s.X)
                s.Y = Math.Abs(s.Y)
    
    
    
    
    
                g.DrawPolygon(PenPoint, p)
    
            ElseIf FillRadioButton.Checked Then
                FillRegion(e.X, e.Y, CurrentColor)
    
            ElseIf TextRadioButton.Checked Then
                Dim txt As String = Me.TextDrawTextBox.Text
                g.DrawString(txt, CurrentFont, New Drawing2D.HatchBrush(Drawing2D.HatchStyle.BackwardDiagonal, CurrentColor), e.X, e.Y)
            End If
            End If
            drawing = False
            UpdateImage()
        End Sub
        Private Sub PaintForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            CurrentFont = Me.Font
            FontButton.Text = CurrentFont.ToString
    
            Me.ColorButton.BackColor = Color.Blue
            Me.Color2Button.BackColor = Color.LightSkyBlue
            g = Graphics.FromImage(LastImage)
            g.Clear(Color.White)
            UpdateImage()
            ReloadPen(PenWidth, CurrentColor)
        End Sub
        Private Sub ColorButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColorButton.Click
            If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                CurrentColor = ColorDialog1.Color
                Me.ColorButton.BackColor = CurrentColor
                ReloadPen(PenWidth, CurrentColor)
            End If
    
    
    
        End Sub
        Private Sub Color2Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Color2Button.Click
            If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                CurrentColor2 = ColorDialog1.Color
                Me.Color2Button.BackColor = CurrentColor2
            End If
        End Sub
        Private Sub ClearToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearToolStripMenuItem.Click
            ClearScreen()
        End Sub
        Sub ClearScreen()
            'LastImage = New Bitmap(501, 501)
            g = Graphics.FromImage(LastImage)
            g.Clear(Color.White)
            UpdateImage()
        End Sub
        Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
            If SavedFileAddress = "" Then
                SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
                If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                    SavedFileAddress = SaveFileDialog1.FileName=string
                    LastImage.Save(SavedFileAddress)
                    Me.Text = SaveFileDialog1.FileName
                End If
    
            Else
                LastImage.Save(SavedFileAddress)
                Me.Text = SaveFileDialog1.FileName
    
        End Sub
        Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
            SaveFileDialog1.Filter = "Bitmap File (*.bmp)|*.bmp"
            If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
                SavedFileAddress = SaveFileDialog1.FileName
                LastImage.Save(SavedFileAddress)
                Me.Text = SaveFileDialog1.FileName
            End If
        End Sub
        Private Sub TriangleRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TriangleRadioButton.CheckedChanged
            TempLocation = New Point(-1, -1)
        End Sub
        Private Sub P1RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P1RadioButton.CheckedChanged
            PenWidth = 1.0F
            ReloadPen(PenWidth, CurrentColor)
    
        End Sub
        Private Sub P2RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P2RadioButton.CheckedChanged
            PenWidth = 5.0F
            ReloadPen(PenWidth, CurrentColor)
        End Sub
        Private Sub P3RadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles P3RadioButton.CheckedChanged
            PenWidth = 10.0F
            ReloadPen(PenWidth, CurrentColor)
        End Sub
        Private Sub M1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M1ToolStripMenuItem.Click
            M1 = LastImage.Clone()
        End Sub
        Private Sub M2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M2ToolStripMenuItem.Click
            M2 = LastImage.Clone()
        End Sub
        Private Sub M3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M3ToolStripMenuItem.Click
            M3 = LastImage.Clone()
        End Sub
        Private Sub M4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M4ToolStripMenuItem.Click
            M4 = LastImage.Clone()
        End Sub
        Private Sub S1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S1ToolStripMenuItem.Click
            LastImage = M1.Clone
            UpdateImage()
        End Sub
        Private Sub S2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S2ToolStripMenuItem.Click
            LastImage = M2.Clone
            UpdateImage()
        End Sub
        Private Sub S3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S3ToolStripMenuItem.Click
            LastImage = M3.Clone
            UpdateImage()
        End Sub
        Private Sub S4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S4ToolStripMenuItem.Click
            LastImage = M4.Clone
            UpdateImage()
        End Sub
        Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
            If SavedFileAddress = "" Then
                Dim result As Integer = MsgBox("Would you like to save this picture", MsgBoxStyle.YesNo)
                If result = MsgBoxResult.Yes Then
                    SaveFileDialog1.Filter = filename = False
    
    
                    LastImage.Save(SavedFileAddress)
                    Me.Text = SaveFileDialog1.FileName
                End If
            End If
            End If
            g.Clear(Color.White)
            UpdateImage()
            SavedFileAddress = ""
        End Sub
        Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
            If SavedFileAddress = "" Then
                Dim result As Integer = MsgBox("Would you like to save the image before exiting?", MsgBoxStyle.YesNoCancel)
                If result = MsgBoxResult.Yes Then
                    SaveFileDialog1.byanghios.textbox1.text()
                ElseIf result = MsgBoxResult.No Then
                    End
                End If
            End If
        End Sub
        Private Sub TextRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextRadioButton.CheckedChanged
            If Me.TextRadioButton.Checked = True Then
                Me.TextDrawTextBox.Visible = True
                FontButton.Visible = Enabled
            Else
                Me.TextDrawTextBox.Visible = True
                FontButton.Visible = False
            End If
        End Sub
        Private Sub FontButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontButton.Click
            If FontDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                CurrentFont = FontDialog1.Font
                FontButton.Text = CurrentFont.ToString
            End If
        End Sub
        Private Sub MessageLabel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    
        End Sub
    
        Private Sub EraserRadioButton_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EraserRadioButton.CheckedChanged
    
        End Sub
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            MsgBox("Al usar la herramienta ''Rellenar'' suele ``petarse´´ recomiendo paciencia xD")
        End Sub
    
        Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
    
        End Sub
    
        Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    
        End Sub
    
        Private Sub PáginaToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PáginaToolStripMenuItem1.Click
            System.Diagnostics.Process.Start("http://www.universojuegos.es/")
        End Sub
    
        Private Sub ForoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForoToolStripMenuItem.Click
            System.Diagnostics.Process.Start("http://foro.universojuegos.es/")
        End Sub
    
        Private Sub BlogToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BlogToolStripMenuItem.Click
            System.Diagnostics.Process.Start("http://blog.universojuegos.es/")
        End Sub
    
        Private Sub CorreoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorreoToolStripMenuItem.Click
            Process.Start("mailto:nilower09@gmail.com")
        End Sub
    
        Private Sub ForoToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ForoToolStripMenuItem1.Click
            System.Diagnostics.Process.Start("http://foro.universojuegos.es/memberlist.php?mode=viewprofile&u=787")
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim testMsg As Integer
            testMsg = MsgBox("¿Desea relamente salir?", vbYesNo + vbExclamation, "Salir...")
    
            If testMsg = 6 Then
                Close()
            ElseIf testMsg = 7 Then
    
            Else
    
    
            End If
        End Sub
    
        Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
            System.Diagnostics.Process.Start("http://foro.universojuegos.es/")
        End Sub
    End Class
    

    Todo tuyo, y a ver si vas dejando de meter las narices donde menos te importa campeón xD

  • Para empezar me meto donde quiera, segundo me importa este tema porque asi demuestro que eres un "copion" y ademas que no podes creditos. y la mayoria de "tus" programas no sirver para nada.

  • Seguro que los tuyos son más útiles, y no pongo créditos por que son míos )
    Pero venga, si quieres tener otra de tus sanciones favoritas por mi no hay problema (ya me entiendes ;)))

  • Se que mis programas no sirven para nada pero yo porlomenor no me copio poruqe lo unico distinto que hay es que le añadistes lo de UJ y el nombre de los cuadrados, label, etc es distinto. Asi que tu programa esta copiado del de Youtube

  • Postea los values del code original, superinformatico y creador de páginas PHP 🙂
    Y si no lo publicas tu, lo publico yo, para que vean cuando dices la verdad. Y como es de típico, si te pilla Salva como la última vez insultándome, sería la típica excusa de... es que fué mi hermano... En fin, personaje.
    No voy a discutir mas campeón. Aquí te dejo el supercode :))

    Public Class PaintForm
        Dim g As Graphics
        Dim startLocation As Point
        Dim endLocation As Point
        Dim TempLocation As New Point(-1, -1)
        Dim TempLocation2 As New Point(-1, -1)
        Dim NumberOfAngle As Integer = 0
        Dim drawing As Boolean = False
        Dim CurrentColor As Color = Color.Blue
        Dim CurrentColor2 As Color = Color.LightSkyBlue
        Dim LastImage As New Bitmap(501, 501)
        Dim M1 As New Bitmap(501, 501)
        Dim M2 As New Bitmap(501, 501)
        Dim M3 As New Bitmap(501, 501)
        Dim M4 As New Bitmap(501, 501)
        Dim PenWidth As Single = 1.0F
        Dim PenPoint As Pen
        Dim SavedFileAddress As String = ""
        Dim CurrentFont As Font
    
        Function FillRegion(ByVal X As Integer, ByVal Y As Integer, ByVal FillCol As Color) As Boolean
            If X < 0 Or X > LastImage.Width Or Y < 0 Or Y > LastImage.Height Then
                Return False
    
            End If
    
            Application.DoEvents()
    
            Dim points As Stack = New Stack
            points.Push(New Point(X, Y))
    
            Dim Pointcolor As Color = LastImage.GetPixel(X, Y)
    
    
            Do
                Dim p As Point = CType(points.Pop(), Point)
    
                LastImage.SetPixel(p.X, p.Y, FillCol)
    
                If UpPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                    points.Push(New Point(p.X, p.Y - 1))
                End If
    
                If DownPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                    points.Push(New Point(p.X, p.Y + 1))
                End If
    
    
                If RightPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                    points.Push(New Point(p.X + 1, p.Y))
                End If
    
                If LeftPixelHaseSameColor(p.X, p.Y, Pointcolor) Then
                    points.Push(New Point(p.X - 1, p.Y))
                End If
    
            Loop While points.Count > 0
    
            Return True
    
        End Function
        Function UpPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (Y > 0) Then
                If (LastImage.GetPixel(X, Y - 1) = Col) Then
                    result = True
                End If
    
            End If
            Return result
    
        End Function
        Function DownPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (Y < LastImage.Height - 1) Then
                If (LastImage.GetPixel(X, Y + 1) = Col) Then
                    result = True
                End If
    
            End If
            Return result
    
        End Function
        Function RightPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
            Dim result As Boolean = False
            If (X < LastImage.Width - 1) Then
                If (LastImage.GetPixel(X + 1, Y) = Col) Then
                    result = True
                End If
    
            End If
    
            Return result
    
        End Function
        Function LeftPixelHaseSameColor(ByVal X As Integer, ByVal Y As Integer, ByVal Col As Color) As Boolean
    
            Dim result As Boolean = False
            If (X > 0) Then
                If (LastImage.GetPixel(X - 1, Y) = Col) Then
                    result = True
                End If
            End If
    
    
            Return result
    
        End Function
        Sub UpdateImage()
    
            g = Graphics.FromImage(LastImage)
    
            Me.PictureBox1.Image = LastImage
    
        End Sub
        Sub ReloadPen(ByVal PenWd As Single, ByVal CurColor As Color)
            PenPoint = New Pen(CurColor, PenWd)
    
        End Sub
        Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
            If e.Button = Windows.Forms.MouseButtons.Left Then
                If drawing = False Then
    
                    startLocation = e.Location
    
                    drawing = True
    
                    If MultiAngleRadioButton.Checked Then
    
                        If TempLocation.X = -1 Then
                            TempLocation = startLocation
                            TempLocation2 = startLocation
                        End If
    
                        endLocation = e.Location
                        g.DrawLine(PenPoint, TempLocation, endLocation)
                        TempLocation = endLocation
    
                    ElseIf TriangleRadioButton.Checked Then
                        If TempLocation.X = -1 Then
                            TempLocation = startLocation
                            TempLocation2 = startLocation
                        End If
    
                        If NumberOfAngle 
    

    PD: Y encima con tanto morro, que me lo dice el que no tiene su foro copiado entero igualito a este xDDDDDDDDDDD