How do you make the visual interface using the code thats given. And what names and properties do you give to the buttons and textbox from the code already displayed here :

Dim fileext$(1$ To $42)$ As String

Dim code$(1$ To $42)$ As String

Dim lastname$(1$ To $42)$ As String

Dim firstname$(1$ To $42)$ As String

Dim pushbuttonButton As String

Dim codestring As String

Dim labelcode As String

Private Sub cmdExit$\_$Click$()$

End

End Sub

Private Sub cmdInstruction$\_$Click$()$

Dim instructions As String

instructions $=$ "Please enter the first three letters of the person's last name $"$

instructions $=$ instructions & vbCrLf & "followed by the first letter of the first name."

MsgBox $($instructions$),$ vbInformation, $("$Directory Assistance"$)$

End Sub

Private Sub cmdKey$\_$Click$($Index As Integer$)$

lblCodeNumber.Caption $=$ lblCodeNumber.Caption & Right$($Str$($Index$),1)$

If Len$($lblCodeNumber$.$Caption$)=4$ Then

labelcode $=$ lblCodeNumber.Caption

For i $=1$ To $42$

If labelcode $=$ code$($i$)$ Then

picDisplay.Cls

picDisplay.Print lastname$($i$),$ firstname$($i$),$ fileext$($i$)$

End If

picDisplay.Print lastname$($i$),$ firstname$($i$),$ fileext$($i$)$

Next i

End If

If Len$($lblCodeNumber$.$Caption$)>4$ Then

lblCodeNumber.Caption $=""$

End If

End Sub

Private Sub cmdLookUp$\_$Click$()$

lblCodeNumber.Caption $=$ Clear

picDisplay.Cls

End Sub

Private Sub Form$\_$Load$()$

Dim i As Integer, c As Integer

j $=1$

Open $"$c:$\backslash$employee$.$txt$"$ For Input As #$1$

Do Until EOF$(1)$

Input #$1,$ lastname$($j$),$ firstname$($j$),$ fileext$($j$)$

codestring $=$ Left$($lastname$($j$),3)$

codestring $=$ codestring & Left$($firstname$($j$),1)$

For i $=1$ To $42$

Select Case Mid$($codestring$,$ i$,$ store$)$

Case $"$a$"$ To $"$c$"$

pushButton $=$ pushButton & $"2"$

Case $"$d$"$ To $"$f$"$

pushButton $=$ pushButton & $"3"$

Case $"$g$"$ To $"$i$"$

pushButton $=$ pushButton & $"4"$

Case $"$j$"$ To $"$l$"$

pushButton $=$ pushButton & $"5"$

Case $"$m$"$ To $"$o$"$

pushButton $=$ pushButton & $"6"$

Case $"$p$"$ To $"$s$"$

pushButton $=$ pushButton & $"7"$

Case $"$t$"$ To $"$v$"$

pushButton $=$ pushButton & $"8"$

Case $"$w$"$ To $"$z$"$

pushButton $=$ pushButton & $"9"$

End Select

code$($j$)=$ pushButton

Next i

pushButton $=""$

j $=$ j $+1$

Loop

Close #$1$

End Sub