Private Sub Form_Resize()
Frame1.Height = frmMain.Height - 6100
Frame1.Width = frmMain.Width - 350
Frame2.Width = frmMain.Width - 350
txtCode.Width = frmMain.Width - 600
MozillaBrowser1.Height = frmMain.Height - 6500
MozillaBrowser1.Width = frmMain.Width - 600
Command1.Left = frmMain.Width - 1570
End Sub