seba123neo muchas gracias, me sirvio mucho tu aporte.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúPrivate Sub picMoveForm_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles picMoveForm.MouseDown
Me.Height = e.Y + Me.Height
Me.Width = e.X + Me.Width
picMoveForm.Left = Me.Width - picMoveForm.Width
picMoveForm.Top = Me.Height - picMoveForm.Height
End Sub
For i = 1 To Len(cadena)
If Mid(cadena, i, 1) = vbCrLf Then
NoEnters = Mid(cadena, 1, i - 1) & "~" & Mid(cadena, i + 1, Len(cadena))
Exit For
Else
NoEnters = cadena
End If
Next i