All pastes #268242 Raw Edit

Untitled

public text v1 · immutable
·published 2006-12-05 14:22 UTC
rendered paste body
Private Sub cmddone_Click()
    Unload Me
End Sub

Private Sub cmdgo_Click()
    Dim strFirst As String, strLast As String, strInitals As String
    
    strFirst = txtname.Text
    strInitals = Left(strFirst, 1)
    strLast = InStr(1, strFirst, " ") + 1
    strInitals = strInitals & Mid(strFirst, strLast, 1)
    lblinitals.Caption = UCase(strInitals)
    
End Sub