[معاند الحظ]

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

اليك حل الشق الأول  من سؤالك 

كود :

 Private Sub TextBox4_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        'تحقق ان المستخدم ضغط زر رقم
        If IsNumeric(e.KeyChar) Or e.KeyChar = ControlChars.Back Then
            ' لايحتوي على نقطة في اخره textbox تحقق ان
            'اذا لم يوجد نقطة ضع نقطة
            If Not TextBox4.Text.EndsWith(".") Then
                TextBox4.Text &= "."
            End If
        Else
            'اذا ضغط المسنخدم زر ليس رفم
            ' اجعل قيمة الزر المضغوط لاشي
            e.KeyChar = ""
        End If
    End Sub

حاول تحل الشق الثاني من سؤالك بنفسك