Visual Basic - ayuda con una ventana terca

hola como estan aki yo otra ves pero es ke tengo un problem aocn un vanetana ke cuando le digo ke se muestre desde un fo0rmulario principal se muestra minimizada ....
la pregunta es como le hago para que se muestre maxinizada o normal por ke las otras ventana se muestran normales ... ke hago

Usa la propiedad WindowState

no me funciona ya lo intente otra opcion ke pueda ayudarm,e

Podria mostrarme el codigo con el q llamas a la ventana?.

PUES MIRA ES EL SIGUIENTE .:
FRMVIDEOTECA.SHOW
Y DESPUES DE ESTO ME PIDE UNA CONTRASEÑA SE LA DOY ELÑ CODIGO DE ESTO ES EL SIG:
If txtcontraseña.Text = "crr" Then
frmvideoteca.Show
frmacceso.Visible = False
txtcontraseña.Text = ""
Else
MsgBox "Teclee correctamente su contraseña", vbCritical, "Proyecto Videoteca"
txtcontraseña.SetFocus
txtcontraseña.Text = txtcontraseña.SelText
End If

Y ES TODO LO KE TENGO DE CODIGO

load frmvideoteca
frmvideoteca.Show

hace lo siguiente:

1er opcion: un click en el formulario (ventana) propiedad windowstate = vbmaximiced

2da opcion: borra el formulario y crea otro nuevamente jejeej ^^

salu2

verifica la propiedad de la ventana en modo de diseño

es la ultima propiedad de abajo

windowstate = 0 normal

y ademas si quieres que la ventana te quiede por sobre todas las demas

le pones esto

formulario.show vbmodal

y se solucionara tu problema

gracias por su ayuda eso si me funciono oye ahora tengo otro problem y no se porke si en otro codigo tengo el mismo y si funciona el problem es al kerer agregar un registro me marca un error de muchos numeros por fa cheka el codigo y ayudame por fa....
Option Explicit

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, _
adStatus As ADODB.EventStatusEnum, ByVal _
pRecordset As ADODB.Recordset)


On Local Error Resume Next


Adodc1.Caption = "Registro actual"

End Sub

Private Sub cmdvista_Click()
frmvistavideoteca.Show vbModal
Adodc1.Refresh
End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
"Data source = C:\PROYECTO_VIDEOTECA.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.RecordSource = "Videoteca"
Adodc1.Refresh
Dim i As Long

End Sub

Private Sub doADOAgregar()
Adodc1.Recordset.AddNew
Text1.SetFocus
End Sub

Private Sub doADOCancelar()
'
If MsgBox("¿Deshacer los cambios?", vbYesNo + vbQuestion, _
"Cancelar Modifcaciones") = vbYes Then
Adodc1.Refresh
cmdaccion(0).Caption = "&Agregar"

End If

Text1.SetFocus
End Sub

Private Sub doADOEliminar()
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
Text1.SetFocus
End Sub

Private Sub cmdaccion_Click(Index As Integer)
'
With Adodc1
Select Case Index
Case 0: doADOAgregar
Case 1: doADOEliminar
Case 2: doADOCancelar
End Select
End With
End Sub

Private Sub cmdactualizar_Click()
Adodc1.Refresh
Text1.SetFocus
End Sub

Private Sub cmdsalir_Click()
frmvideoteca.Visible = False
frmacceso.Visible = False
End Sub