Devi scrivere nella routine form_load() il seguente codice:

If TextBoxUsr.Text = "username giusto" And TextBoxPsw.Text = "password giusta" Then
BtnProsegui.Enabled = True
Else
BtnProsegui.Enabled = False
End If
Puoi creare un programma ancora più sofisticato creando un db di testo dove salvare tutti gli user e pass che vuoi e li ricavi in questo modo:

form_load()
Dim R As New Io.StreamReader("Percorso file,esempio C:\database.txt")
Dim DB As String
DB = R.ReadToEnd
R.Close()
'ora nella variabile DB ci saranno tutti gli user e pass(sempre se li hai scritti nel file di testo).
'Dopo ricavali e avrai un bel programmino per avere più utenti non solo uno.