ToolStrip Collect Command

-- save
    Private Sub SaveToolStripButton_Click(sender As Object, e As EventArgs) Handles SaveToolStripButton.Click
        Dim frm As Object = Me.ActiveMdiChild
        If frm Is Nothing Then Return
        Call frm.save()
    End Sub

--delete

    Private Sub DeleteToolStripButton_Click(sender As Object, e As EventArgs) Handles DeleteToolStripButton.Click
        If MsgBox("Are you sure want to Delete?", MsgBoxStyle.YesNo, "Delete") = MsgBoxResult.Yes Then
            Dim frm As Object = Me.ActiveMdiChild
            If frm Is Nothing Then Return
            Call frm.delete()
        Else
            MsgBox("You aren't deleted")
        End If
    End Sub

--filter
    Private Sub FilterToolStripButton_Click(sender As Object, e As EventArgs) Handles FilterToolStripButton.Click
        Dim frm As Object = Me.ActiveMdiChild
        If frm Is Nothing Then Return
        Call frm.Filter()
    End Sub