>>79
Form1＋Command1、Form2を用意して、Form1に書くべし。

Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Form_Resize()
Select Case Me.WindowState
Case vbNormal
Form2.WindowState = vbNormal
Case vbMinimized
Form2.WindowState = vbMinimized
End Select
End Sub