assign keyboard shortcuts to userform etc.

[rjmdc]

i created a userform for the office however my co-worker whois blind cannot use it as her screen reader cannot read the form as it overlays the excel spreadsheet
it was advised that i create the entire form with keyboard shortcuts- ctrl shift alphabet
please help me with my form.
we have the blessing of eyes that see and it is unfathomable what assistance in needed for simple things

firstly shortcut to show form as she cannot use my button show form
Private Sub cboActions_Change()
    If Me.TextBoxActions.Value = "" Then
        Me.lblActionsProvided.ForeColor = vbRed - what would i use as a marker or "screen talker" to say incomplete
    Else
        Me.lblActionsProvided.ForeColor = vbBlack what would i use as a marker or "screen talker" to say incompletewhat would i use as a marker or "screen talker" to say complete
Private Sub cboActions_Change()
    If Me.TextBoxActions.Value = "" Then
        Me.lblActionsProvided.ForeColor = vbRed what would i use as a marker or "screen talker" to say incomplete
    Else
        Me.lblActionsProvided.ForeColor = vbBlackwhat would i use as a marker or "screen talker" to say incomplete
    End If
End Sub
___________________________________________________________
Private Sub Clear_Click() how do i assign the clear to a shortcut?
    Dim ctrl As Control
  
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" Or TypeName(ctrl) = "TextBox" Then
            ctrl.Value = ""
'        ElseIf TypeName(ctrl) = "CheckBox" Then
'            ctrl.Value = ""
                
        End If
    Next ctrl
________________________________________________________  
            Me.txtDateToday.Value = Format(Date, "mmmm dd, yyyy")
             Me.CboParticipants.SetFocus
  
    End Sub
Private Sub cmdClose_Click()
    Unload Me
End Sub
_________________________________________________
Private Sub Enter_Click() shortcut for enter?

    ActiveWorkbook.Worksheets("Log").Select
        With ActiveSheet.ListObjects(1).DataBodyRange
    If .Range("A" & .Rows.Count).Value = "" Then
        .Range("A" & .Rows.Count).End(xlUp).Offset(1).Select
    Else
        ActiveSheet.ListObjects(1).ListRows.Add
        .Range("A" & .Rows.Count).Offset(1).Select
    End If
End With
   
     If Me.CboParticipants.Value = "" Then
        Me.lblParticipantsName.ForeColor = vbRed what would i use as a marker or "screen talker" to say incomplete
        Me.CboParticipants.SetFocus
     Exit Sub
     End If
   
     If Me.TextBoxActions.Value = "" Then
        Me.lblActionsProvided.ForeColor = vbRed what would i use as a marker or "screen talker" to say incomplete
        Me.TextBoxActions.SetFocus
     Exit Sub
     End If
   
'     If IsDate(me.txtDateToday.Value) Then
'     Else: exitsub
'     End If
   
        ActiveCell.Value = Me.CboParticipants
        ActiveCell.Offset(0, 1).Value = Me.txtDateToday
        ActiveCell.Offset(0, 2).Value = Me.TextBoxActions
        ActiveCell.Offset(0, 3).Value = Me.TextBoxFollowUp
'     If Me.optLP.Value = True Then
'        ActiveCell.Offset(0, 5).Value = "LP"
'     End If
'     If Me.receivedLP = True Then
'        ActiveCell.Offset(0, 6).Value = ChrW(&H2713)
'     End If
'     If Me.optSAP.Value = True Then
'        ActiveCell.Offset(0, 3).Value = "SAP"
'     End If
'     If Me.receivedSAP = True Then
'        ActiveCell.Offset(0, 4).Value = ChrW(&H2713)
'    End If

         Call Clear_Click shortcut for clear?
         Me.lblActionsProvided.ForeColor = vbBlack
         Me.lblParticipantsName.ForeColor = vbBlack
       
         Call cmdClose_Click shortcut for close?
   End Sub
_________________________________________________
'Private Sub optLP_Click() shortcut?
'Dim LP As String
'If optLP.Value = True Then
' Lifeplan = "LP"
'Else
' Lifeplan = ""
'End If
'End Sub
________________________________________
'Private Sub optSAP_Click() shortcut?
'Dim SAP As String
'If optSAP.Value = True Then
' SAP = "SAP"
'Else
' SAP = ""
'End If
'End Sub
__________________________________________________________
Private Sub cboNameofParticipant_Change()
     If Me.CboParticipants.Value = "" Then
        Me.lblParticipantsName.ForeColor = vbRed what would i use as a marker or "screen talker" to say incomplete
     Else
        Me.lblParticipantsName.ForeColor = vbBlack
     End If
End Sub
_____________________________________________________
Private Sub UserForm_Initialize()      shortcut?

'    Me.cboActions.List = Worksheets("Actions").Range("Actions").Value
    Me.CboParticipants.List = Worksheets("Participants").Range("Participants").Value
     
    Me.txtDateToday = Format(Date, "mmmm dd, yyyy")
  
    Me.CboParticipants.SetFocus
      
End Sub
    
___________________________________________________
Private Sub Clear_Click()     shortcut for clear?
    Dim ctrl As Control
  
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "ComboBox" Or TypeName(ctrl) = "TextBox" Then
            ctrl.Value = ""
'        ElseIf TypeName(ctrl) = "CheckBox" Then
'            ctrl.Value = ""
                
        End If
    Next ctrl
  
            Me.txtDateToday.Value = Format(Date, "mmmm dd, yyyy")
             Me.CboParticipants.SetFocus
  
    End Sub
____________________________________________________
Private Sub cmdClose_Click() shortcut?
    Unload Me
End Sub
_________________________________________________
Private Sub Enter_Click()  shortcut?

    ActiveWorkbook.Worksheets("Log").Select
        With ActiveSheet.ListObjects(1).DataBodyRange
    If .Range("A" & .Rows.Count).Value = "" Then
        .Range("A" & .Rows.Count).End(xlUp).Offset(1).Select
    Else
        ActiveSheet.ListObjects(1).ListRows.Add
        .Range("A" & .Rows.Count).Offset(1).Select
    End If
End With
   end sub