How and where is this function being called?
If it is being called from frmOpening_Screen then you will need to pass an instance of the form to this function rather than create a new instance within it.
i.e.
Public Sub LoadItems(ByVal strTitle As Array, ByVal frm as frmOpening_Screen)
Dim i As Long
frm.Owner = Me
frm.cmbTitle.Items.Clear()
For i = 0 To UBound(strTitle, 2)
frm.cmbTitle.Items.Add(strTitle.GetValue(0, i))
Next i
End Sub