ChrisRaisin
Используйте элемент управления "InputDialog" в вызове функции, а не функцию "InputBox", как показано в следующем примере.
Private Function GetPassword(Optional strCurrentPW as String = "") as string
Dim strPassword As String = ""
Dim InputPassword As New InputDialog
With InputPassword
.TopMost = True 'keep dialog on top
.Text = "Password" 'text is the "Title" bar of the Dialog
'''.btnOK.Visible = True 'True by default, shown for documentation purposes
'''.btnCancel.Visible = True 'True by default, shown for documentation purposes
.txtValue.Text = strCurrentPW 'Initial value in the input area of the dialog
.Prompt = "Please input your password" 'A prompt just above the input area
.ShowDialog() 'display the dialogue and wait for response
End With
If InputPassword.DialogResult = DialogResult.OK Then 'OK button clicked
return InputPassword.value.trim
else
return ""
endif
end function
Параметр "самый верхний" гарантирует, что поле ввода (или, скорее," диалог ввода") будет отображаться выше всех других форм. Надеюсь, это поможет.