问如何在visual basic中转到下一个窗体？

EN

Private Sub cmdAdd_Click()



'Dim iRow As Long
'Dim ws As Worksheet
Set ws = Worksheets("D544 Back Panel")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
   If Trim(Me.txtPrd.Value) = "" Then
  Me.txtPrd.SetFocus
  MsgBox "Please enter a Production Number"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'     with your password
'     if worksheet is protected
With ws
'  .Unprotect Password:="Password"

  .Cells(iRow, 1).Value = Me.txtDate.Value
  .Cells(iRow, 2).Value = Me.txtHrs.Value
  .Cells(iRow, 3).Value = Me.txtPrd.Value
  .Cells(iRow, 4).Value = Me.txtSrp.Value
  .Cells(iRow, 5).Value = Me.txtOper.Value

'  .Protect Password:="Password"
End With

'clear the data
Me.txtDate.Value = ""
Me.txtHrs.Value = ""
Me.txtPrd.Value = ""
Me.txtSrp.Value = ""
Me.txtOper.Value = ""
Me.txtPrd.SetFocus

Unload Me






End Sub


Private Sub cmdSubmit_Click()

'Dim iRow As Long
'Dim ws As Worksheet
Set ws = Worksheets("Scrap")

'find first empty row in database
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

'check for a part number
If Trim(Me.txtPress.Value) = "" Then
  Me.txtPress.SetFocus
  MsgBox "Please enter press scrap"
  Exit Sub
End If

'copy the data to the database
'use protect and unprotect lines,
'     with your password
'     if worksheet is protected
With ws
'  .Unprotect Password:="Password"

  .Cells(iRow, 1).Value = Me.txtDelam.Value
  .Cells(iRow, 2).Value = Me.txtCuts.Value
  .Cells(iRow, 3).Value = Me.txtBurns.Value
  .Cells(iRow, 4).Value = Me.txtDents.Value
  .Cells(iRow, 5).Value = Me.txtStaple.Value
  .Cells(iRow, 6).Value = Me.txtGlue.Value
  .Cells(iRow, 7).Value = Me.txtPress.Value

'  .Protect Password:="Password"
End With

'clear the data
Me.txtDelam.Value = ""
Me.txtCuts.Value = ""
Me.txtBurns.Value = ""
Me.txtDents.Value = ""
Me.txtStaple.Value = ""
Me.txtGlue.Value = ""
Me.txtPress.Value = ""
Me.txtPress.SetFocus
Unload Me



End Sub