Emmanuele Sassi
12 lines
298 B
VB.net
12 lines
298 B
VB.net
Public Class OptimizePanelV
|
|
|
|
Private Sub OptimizeBtn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
|
|
Dim OptimizeBtn = TryCast(sender, FrameworkElement)
|
|
|
|
If OptimizeBtn IsNot Nothing Then
|
|
OptimizeBtn.ContextMenu.IsOpen = True
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|