Código:
Private Sub Form_Initialize()
If App.PrevInstance = True Then
MsgBox "El programa esta abierto O.o", vbInformation
Unload Me
End If
End Sub
y para cambiar el color al textbox es asi:
Código:
Private Sub Text1_GotFocus()
Text1.BackColor = vbRed 'Cuando tiene foco
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = vbWhite 'Cuando pierde foco
End Sub