[sooriaty03]

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

تفضل أخي

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If TextBox1.TextLength = 0 OrElse TextBox1.SelectionStart = 0 Then
            e.KeyChar = UCase(e.KeyChar)
        End If
End Sub

بالتوفيق