adecualo a tu codigo

Private Sub Form_Load()
    Dim pos As Long
 
    RichTextBox1.Text = "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola" & vbCrLf & _
                        "Sergio dice: Hola"
 
    pos = 1
 
    Do While InStr(pos, RichTextBox1.Text, ":") <> 0
        RichTextBox1.SelStart = InStr(pos, RichTextBox1.Text, ":") + 1
        RichTextBox1.SelLength = 4
        RichTextBox1.SelBold = True
        RichTextBox1.SelColor = vbBlue
        RichTextBox1.SelStart = Len(RichTextBox1.Text)
 
        pos = InStr(pos, RichTextBox1.Text, ":") + 1
    Loop
End Sub

Con la propiedad container podes centrar el control en donde se encuentre, si esta en un form se centrara en el form, pero si esta en un picturebox se va a centrar en el picture box

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/140-centrar-control.htm

Busca sobre getcursorpos y setcursorpos

Buena idea . Creo que 79137913 había posteado algo parecido, solo que el lo habia hecho con un timer

Si los usuarios se conectan en distintas PC podes obtener el numero de serie del HD

Bueno como estoy aburrido hice el code, pero si no entiendes pregunta, es un code sencillo igual, sacate todas las dudas sino no sirve que posteen el code

Option Explicit
 
Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
    Timer1.Enabled = False
End Sub
 
Private Sub Form_Load()
    Command1.Caption = "Play"
    Command2.Caption = "Pause"
 
    Slider1.Min = 0
    Slider1.Max = 50
 
    Timer1.Interval = 100
    Timer1.Enabled = False
End Sub
 
Private Sub Timer1_Timer()
    With Slider1
        If .Value = .Max Then
            Timer1.Enabled = False
        Else
            .Value = .Value + 1
        End If
    End With
End Sub

Creo que esto es lo que estas buscando

creo que esto te puede servir
http://www.recursosvisualbasic.com.ar/htm/listado-api/222-capturar-webcam-con-sendmessage-capCreateCaptureWindow.htm

Leete las reglas del foro antes de postear

http://foro.elhacker.net/programacion_general/reglas_subforo_de_programacion_general-t93852.0.html


Creo que con la ayuda que te dieron todos ya practicamente esta hecho el programa, tendrias que pensar como terminarlo

Listo ya modifique mi funcion tenia un pequeño error, creo que ya no da resultados erroneos.

Bueno aca les dejo mi codigo. Me conformo con que funcione. Por lo menos pude realizarlo dentro de los pocos conocimientos que tengo

Private Function RETO_InStr(Start As Long, String1 As String, String2 As String) As Long
    Dim sSplit() As String
    Dim Num As Long
    Dim i As Long
 
    Start = Start - 1
 
    If Start < 0 Then Start = 0
 
    sSplit = Split(String1, String2)
 
    Num = Len(sSplit(0))
    For i = LBound(sSplit) To UBound(sSplit)
        If Num >= Start Then
            If Num = Len(String1) Then
                RETO_InStr = 0
            Else
                RETO_InStr = Num + 1
            End If
 
            Exit For
        End If
 
        Num = Num + Len(sSplit(i + 1)) + Len(String2)
    Next i
End Function