ayuda con visual 2008 en .net con un pequeño control ciber

[shakringan]

ayuda tengo un pequeño proble y nesecito ayuda con este mi programita de control ciber no quiere furular y nesecito de su ayuda primero el timer corre bien pero a la hora de cobrar se traba y me tira error ayuda 

Public Class Form1
    Private Hora As Integer = 0
    Private minuto As Integer = 0
    Private segundo As Integer = 0
    Private milisegundo As Integer = 0
    Sub mostrartiempo()
        Label1.Text = Hora.ToString.PadLeft(2, "0") & ":"
        Label2.Text = minuto.ToString.PadLeft(2, "0") & ":"
        Label3.Text = segundo.ToString.PadLeft(2, "0") & ":"
        Label4.Text = milisegundo.ToString.PadLeft(2, "0") & ":"
        Label1.Refresh()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        milisegundo += 1
        If milisegundo = 9 Then
            milisegundo = 0
            segundo += 1
            If segundo = 59 Then
                segundo = 0
                minuto += 1
                If minuto = 59 Then
                    minuto = 0
                    Hora += 1

                End If
            End If
        End If
        mostrartiempo()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Hora = 0
        minuto = 0
        segundo = 0
        milisegundo = 0
        mostrartiempo()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        End
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim vh, vm, pc As String
        vm = Label2.Text * 0.01
        vh = Label1.Text * 0.6
        pc = vh + vm
    End Sub
End Class

[Jarmandaros]

Mientras viene un experto en el tema te puedo ayudar diciendote que estas declarando la variable "vm" como string osea como "cadena de texto" cuando lo que estas haciendo es una multiplicacion numerica que te va a dar un resultado del tipo "Integer" por lo que deberas declarar la variable al tipo "Integer"

ahora lo tenes asi:

Código: [Seleccionar]

Dim vh, vm, pc As String
        vm = Label2.Text * 0.01
        vh = Label1.Text * 0.6
        pc = vh + vm
y deberias probar asi:

Código: [Seleccionar]

Dim vh, vm, pc As Integer
        vm = Label2.Text * 0.01
        vh = Label1.Text * 0.6
        pc = vh + vm

despues observo que estas utilizando un "Label" para capturar un dato numerico por lo que te aconsejaria utilizar un "VAL" para obtener el valor numerico de la etiqueta y te quedaria el codigo algo asi:

Código: [Seleccionar]

Dim vh, vm, pc As Integer
        vm = val(Label2.Text) * 0.01
        vh = val(Label1.Text) * 0.6
        pc = vh + vm

proba a ver si te funciona y si no esperemos a los expertos en programacion

[tekun]

+ ayuda
http://msdn.microsoft.com/es-es/library/s2dy91zy(v=vs.80).aspx

[Non Servium]

Si le concatenas los dos puntos, no puedes convertirlo a entero (o decimal)

Código: [Seleccionar]

Dim vh, vm, pc As Decimal
        vm = Convert.ToDecimal(Label2.Text.Replace(":", "")) * 0.01
        vh = Convert.ToDecimal(Label1.Text.Replace(":", "")) * 0.6
        pc = vh + vm


[shakringan]

Si le concatenas los dos puntos, no puedes convertirlo a entero (o decimal)

Código: [Seleccionar]

Dim vh, vm, pc As Decimal
        vm = Convert.ToDecimal(Label2.Text.Replace(":", "")) * 0.01
        vh = Convert.ToDecimal(Label1.Text.Replace(":", "")) * 0.6
        pc = vh + vm


hey gracia bro si me sirvio el codigo gracias