[sooriaty03]

السلام عليكم ورحمة الله وبركاته

تفضل أخي الكريم

هذا هو الكود المطلوب

كود :

Public Class Form1
    Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged, TextBox1.TextChanged
        TextBox3.Text = GetValue(TextBox1.Text, TextBox2.Text)
    End Sub
    Private Function GetValue(ByVal Time As String, ByVal Cost As String) As String
        Try
            Dim TimePart() As String = Time.Split(":")
            Dim Value As Double
            Value = (CInt(TimePart(0)) + (CInt(TimePart(1)) / 60)) * Cost
            Return Value.ToString("0.00")
        Catch ex As Exception
            Return "0.00"
        End Try
    End Function
End Class

بالتوفيق